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“Every PET owner 
should read it” 


Chuck Pp eddle y Inventor of the PET 


“The PET Companion” is 
a fascinating collection of 
essential PET information 


from the pages of 


Microcomputer Printout. It 
contains all of the editorial 
from the 1979 & 1980 
issues, including 105 PET 
programming hints and 
tips, 116 news reports, 
reviews of 54 peripherals 
ranging from light pens to 
printers and 2/ major 
articles on PET program- 
ming. All of it written in 
straightforward English. 


Some of the topics covered: 


PROGRAMMING THE PET 


Double Density Plotting 

Modular Programming 

Programming Style 

Graphics 

Subroutines 

porn Out Sorts 
Tokens 

The Game of LIFE 

Tommy's Tips 

ROM Addresses 


THE SOFTWARE 


Business Software Survey 

Cosmic Invaders 

Superchip 

PETAID Do-It-Yourself Database 
What's Wrong with WORDPRO? 
Screen Display Aids 

Keyboard Tutor 

Photography Course 

Who Do You Want To Be?: Fantasy 
Games 

Commodore's Assembler Develop- 
ment System 


HARDWARE REPORTS 


The New ROM Set 

CBM 8032 SuperPET 

Compu Think Disk Drives 
Hardware Repeat Key 

High Resolution Graphics 

The Commodore Printer 

How the Keyboard Works 
AIM161 Ato D Convertor 
Commodore's 3040 Disk Drive 
PET's Video Logic 

Colour for PET: The Chromadaptor 


THE SPECIAL REPORTS 


PET in Education 

PET Show Report 

The Jim Butterfield Seminar 
Hanover Fair Report 

PET In Public Relations 

Local User Groups 

High Resolution Graphics 
Commodore's New Technology 
Future Shock: Forecasting The 
Future 

Speech Synthesis 

PET As Secret Agent 


Programming Aids & Utilities Survey A Visit to the Commodore 


PET Games 


plus news, letters, gossip and regular columns by leading PET 


experts. 


To: Printout Publications, P.O. Box 48, Newbury RG16 OBD. Tet : nthe J 31 


Please rush me a copy of the PET Companion 
[ ]Ienclose cheque/postal order/money order 
[ ]Please charge my Access/Eurocard/Mastercharge 
Or Barclaycard/ Visa NO bvsvccicsicssconcanereessnees ‘ 


[ ]UK £9.50 plus 45p postage 
(Credit card orders accepted by telephone on 0635-201131) 





VISA 


] USA $25 


[ ] Overseas £12 OE 
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For the best PET software... 


COMMAND—-O..... For Basic IV CBM/PET, 39 fimctions £59.95 + Vat 
with improved "Toolkit" commands 


Old tricks for new Pets... 


COMMAND-9 is a FOUR KILOBYTE Rom for the 4000/8000 Basic 4 Pets 
with all the "Toolkit”®” commands RENUMBER (improved), AUTO, OUMP, 
DELETE, FIND (improved), HELP, TRACE (improved & includes STEP), 







and OFF - plus PRINT USING - plus four extra disk commands 
DISK-O-PRO....- For Basic Il PET, aids 2 commands £59.95 + Vat INITIALIZE, MERGE, EXECUTE, and SEND - plus extra editing 
including Basic IV, in one 4K rom commands SCROLL, MOVE, OUT, BEEP, and KILL - plus SET 






user-definable soft kay, 190 characters - plus program scroll up 
and down - plus 8032 control characters on key. Ask for Model 
CO-80N for the 8032 or CO-40N for the 4016/4032. £50.00 plus vat 


New tricks for old Pets... 


QNISK-O-PRO is a FOUR KILOBYTE Rom that upgrades 2000/3000 Pats, 
but lets you keep all your old software - including Toolkit. As 
well as REPEAT KEYS and PRINT USING, you get all the Sasic 4 
disk commands CONCAT, ODOPEN, OCLOSE, RECORD, HEADER, COLLECT, 
BACKUP, COPY, APPEND, OSAVE, DLOAD, CATALOG, RENAME, SCRATCH and 
OIRECTORY - plus extra disk cammands INITIALIZE, MERGE, EXECUTE 
and SEND - plus extra aditing commands SCROLL, MOVE, OUT, BEEP 
and KILL - plus SET user definable soft-key, 80 characters 

plus program scroll-up and scroll-down. We recommend the 4049 
disk or upgraded 3040 for full benefit of disk commands. 4s for 
Model DOP-16N for new Pets 2001-3032, and 2001-8 with retrofit 
Roms & TK160P Toolkit. £50.00 plus Vat, other models available. 


KRAM..cccceeces FOr amy 32K PET/CBM for retrieving £86.95 + Vat 
disk data by KEYED Random Access 

SPACEMAKER IV For any PET/C3M, oounts 1-4 rms £29.95 + Vat 
in one rom slot, switch selection 

" USER I/O For software selection of up to 8 £12.95 + Vat 
roms, in any two Spacemaker Quads 

PRONIO—PET.... Soft/hard reset for 40-colum FETs £9.99 + Vat 


SUPERKRAM, REQUEST & KRAM PLUS will be available shortly 




















We are sole IK Distributors for these products, which are available 
from your local CBM dealer, or direct from us by mail or telephone 
order. To order by cheque write to: Calco Software, FREEPOST, 
Kingston-upon—Thames, Surrey KT2 7B (no stamp required). For same-day 
Access/Barclayeard service, telephone 01-546-7256. Official orders 
accepted from educational, government & local authority establishments 






PRONTO-PET hard/soft reset switch for the 3000/4000 Pets. We 
don't think you'll *crash® your Pet using our software, but if 
you do the Pronto-Pet will get you out! Also clears the Pet for 
the next job, without that nasty off/on power surge. £9.99 + Vat 


and no tricks missed! 


KRAM Keyed Random Access Method. Kid your Pet it’s an IBA! VSAM 







...at the best prices! 






WORDPRO IV PLUS RRP £395 less £98.75 = £296.25! disk handling for 3032/4032/8032 Pets with 3040/4040/8050 disks 
oe ek ee oe ee dees Bera = se! ae Blacks €) Mier) Sock, Guan EfU0 uhare warldelte Ineo leived 
ut. . Vv 

WORDPRO II PLUS RRP £125 less £31.25 sine $93.4 154 the "Klub"! Now you can too, at the 1981 price, £75.00 plus Vat. 

VISICALC RRP £125 less £25.00 = £100.00! 

TOOLKIT Basic IV RRP £34 l £9.50 = or SPACEMAKER All our Rom products are compatible with each cther, 
ic ess ° aa ae ° but should you want, say, Wordpro with Kram, or Oisk-o-pro with 

TOOLKIT Basic I RRP £29 less £7.25 = £21.75! Visicalc, then SPACEMAKER will allow both Roms to address one 





Rom socket, with just the flip of a switch, for £22.50 plus Vat. 








We are sole UK dtatributors for all these fine produotse. If your 
CBM dealer ts out of stock, they are avatlable by matl from ua, 
by cheque/Access/Barclaycard (UK poet patd) or send for detarla. 


Laico Sottware 


Lakestda House Kingaton #ill Surrey KT27QT Tel 01-546-72586 






The items above are available by mail or telephone order at our 
Special Offer Price when purchased with amy one of our software 
products. This offer is for a LIMITED PERIOD only. IK - AM 15% VAT. 
OVERSEAS airmail postage - add £3.00 (Europe), £5.00 (autside Europe). 


Calco Software 


Lakeside House — Kingston Hill - Surrey - KT2 7@% Tel 01-546-7256 
















Editorial 








A number of people have enquired at 
one time or another : “How did you 
get the job of editor ?’? Some have 
even asked “‘Why did you get the job 
of editor !?”’. For those of you with in- 
quisitive minds, we present “The 
story so far.....” 

A little bit of background history. 
After leaving school with a variety of 
‘O’ and ‘A’ levels in a somewhat 
peculiar mixture of subjects, my first 
encounter with the working world 
was as a lumberjack. Working in the 
far north of Scotland, where it was 
VERY cold, I eventually decided that 
this wasn’t for me, mainly because it 
involved a lot of hard work. So off I 
went to university, University Col- 
lege London in fact, to take a degree 
in Astronomy. Despite discovering 
the student bar I finally emerged with 
a degree, and set off on the job hunt. 

It took me six months to get that 
job. Six months in a bedsit watching 
the goldfish swimming around and 
turning the stero up to 78 r.p.m. to 
get the cat off it is a long six months. 
As soon as I mentioned that I’d got a 
degree in Astronomy people tended 
to say one of two things. Either “‘Oh, 
can you read my palm ?” Telling 
them that their hands needed washing 
didn’t get one the job. The alternative 
response was “Ah, taking over from 
Patrick Moore are we 2”, which 
didn’t go down very well. 





At last a job! 


Ultimately my saviour arrived in 
the form of Nick Green, now Special 
Projects Manager at Commodore, but 


at that time in charge of the Software 
Department. Quite why Nick decided 
to take me on when others didn’t I’ve 
never quite worked out : perhaps it 
was the drinks I bought him in the 
bar that evening! 

After a stint of answering the 
telephones and sending out dealer 
leads, I graduated onto the cassette 
library and ended my days in software 
as software administration manager. 
It was then that I got the call into 
“The Office’. We referred to it as 
“The Office” because it usually 
meant doom and gloom whenever we 
entered. When the conversation 
started I thought that this was what I 
had in store for me. 

“Peter, you’ve been with us for 
over two years haven’t you ?” 

True, I thought, but is this the kind 
of thing that one slips into everday 
conversation ? 

‘““Have you ever thought of doing 
another job ?”’ 

It was around about this time that I 
fell on the floor. But rescue was at 
hand. 

““How would you like to be editor of 
the newsletter >” 

After due thought and consideration I 
thought, well, why not ? Something 
different if nothing else. What you’ve 
seen in the last seven months has 
been the result : I hope you approve! 


Working for Commodore 


So what is it like to work for Com- 
modored ? As you probably know 
Commodore is an American com- 
pany, with distributors dotted around 
the world : we happen to be the 
largest one outside of the States. The 
usual company hierarchy exists, but 
(I think!) I get on well enough with 
the people above me. The over-riding 
impression of working for Com- 
modore is that it’s interesting : no two 
days are ever the same. It is also good 
fun, and at times considerably ir- 
ritating, like, I would imagine, any 
company anywhere. But at the end of 
the day it’s the interest factor that 
comes out on top. 

Specifically, producing a newsletter 
is a very interesting job : the number 
of diverse application stories I see is 
growing all the time, and certainly on 
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the increase is the number of letters I 
receive from you. All the programm- 
ing hints are gratefully received 

anything that will save other people 
‘head scratching”’ is always welcome, 


The Contents 


Having mentioned the newsletter 
we come onto the contents of this 
one. The now standard features are 
all there, including the Jim Butter- 
field article, the reviews section, what 
the Papers Say, the peripheral spot, 
disk use for beginners, and so on. The 
Basic programming section this time 
covers such features as merging files, 
line protection, sorts and relative 
files, whilst on machine code we have 
a number of useful utilities. 

Articles that go into more detail in 
specific areas include one on using 
the User Port, from A.H. Potten. 
Aimed at the beginner who has never 
encountered the user port before, it 
describes Mr. Potten’s early attempts 
(and successes in using the prot, and 
suggests various application areas. He 
mentions topics like simulation of 
chemical process control, burglar 
alarms and even a PET controlled 
Christmas tree! (Less than fifty shop- 
ping days to go). 

British Telecom leap to the rescue 
of Computhink disk drive owners 
who’ve been wishing to use Jim But- 
terfield’s Cross Reference program. 
They’ve converted his program to 
work with these drives,and in a well 
documented article show precisely 
how it’s been done. 

Good news for old rom 8K PET 
owners who want to go to Basic 4.0. 
As you may be aware one of the pro- 
blems facing you has been the fact 
that the old PETs had 28 pin sockets, 
and all the chips to convert to Basic 
4.0 are 24 pin. In an article from 
Mogens Moller Nielsen of Denmark 
he explains precisely how one can 
overcome this problem, and at the 
same time goes into detail on how to 
produce your own character 
generator to, for instance, display 
pound signs on the screen. 


Communications 


One of our regular contributions, 
Pete Gabor from Datatronic in Israel, 
has sent ina program called Leapfrog, 


and if you're an 8032 owner I’ve add- 
ed 2 few notes to enable you to use the 
program. Although a game it does 
display a number of interesting pro- 
gramming features which will be of 
help if you're a relative newcomer to 
the Basic programming area. 

A concurrent clock for the PET? 
Read on .... 

Another item for old rom 8K users 
is 2 conversation of a program that 
was in an earlier newsletter, but 
which was written specifically for 
Basic 2. It’s a single stroke key print 
routine, and thanks to Mr. Shaw of 
the Merseyside Microcomputer 
Group for providing the modifica- 
tions. 


Apart from the usual mixture of 
short listings and _ strange 
photographs, the other main feature 
in the main body of the magazine is 
an article called ‘‘Connecting the 
General Instruments AY-3-8910 Pro- 
grammable Sound Generator to the 
6502/6800 bus’’. More music for the 
PET! 


The special central feature this time 
is once again back onto education 
after our forays into the world of com- 
munications. The main item of in- 
terest concerns itself with COMAL, 
and in particular with information 
from the COMAL Users Group from 
Madison, Wisconsin. Under the 
leadership of Len Lindsay they are 
rapidly becoming the world COMAL 
centre, and anything they produce I’ll 
bring to you through the medium of 
this newsletter, If you’ve done any 
development work in COMAL let me 
know, as I’m sure Len, and other 
readers, would be very interested. 
The address to send any contribution 
to is:- 


The Editor 

Commodore Club News 
675 Ajax Avenue 
Trading Estate 

Slough 

Berks. 


If you wish to renew you subscrip- 
tion, or to start one up, write to 
Margaret Gulliford at the same ad- 
dress, enclosing a cheque for ten 
pounds (fifteen if overseas) made 
payable to C.B.M. (U.K.) Ltd. By do- 
ing this you will be guranteed a years 
supply of information, in the form of 
a magazine a month. Keep yourself 
informed! 


‘DIAL-A-DEMO’ MOBILE 
COMPUTER DEMONSTRA- 
TION UNIT 


Da Vinci Computers of Edgware 
have launched a new service for 
potential customers - a mobile 
demonstration unit. 

Believed to be the first of its kind, 
the unit is luxuriously fitted with 
deep pile carpet, and is able to seat 
five for a demonstration in_air- 
conditioned comfort. 

The equipment includes a Pet com- 
puter, duai floppy disk drive, and two 
kinds of printer - dot matrix and daisy 
wheel - to demonstrate both ends of 
the price scale. 

Da Vinci feel that more small 
businesses will have the opportunity 
of seeing for themselves how a com- 





puter can help in their particular 
business if the demonstration unit 
can come to them. This saves busy 
executive time and gives them a 
greater idea of how a computer can 
help with their particular application. 
The executive need never be out of 
contact with his office either, as the 
demonstration unit is also equipped 
with a telephone. 

Apart from the hardware, Da Vinci 
are able to supply a wide range of 
software programmes suitable for all 
kinds of business and professional ap- 
plications. 


To ‘dial-a-demo’ (free in London 
and surrounding areas) just telephone 
the Mobile Unit on 01-882 6481 
Code 1882 or Da Vinci’s Offices on 
01-952 0526. 


Rebroe 
Shckis, HAL 7 i 
TA-GSE OSG i 





INTERNATIONAL 


DENSPET is the association for 
the exchange of original programs for 
the MTU (and IJJ) 200 X 320 dot 
high-resolution PET accessory. Send 
a sample of your work or £2.50/$5.00 
and receive a sample in return plus 
subscription to newsletter and lists of 
available programs. Write to Frank 
Chambers, DENSPET, Rock House, 


Ballycroy, Westport, Co. Mayo, 
Ireland. 
ITL INPUT/OUTPUT CARDS 
FOR LSI-11 
MICROPROCESSORS 

The ADAC Models 1632TTL, 


1664TTL and 166ATTL, each con- 
tained on half boards (8'2" x 5"), have 
the capability of interfacing a total of 
32 or 64 TTL digital input/output 
lines directly to the Digital Equip- 
ment Corporation LSI-11, LSI-11/23 
bus as well as the ADAC System 
1000 and 2000 Series bus. 

The ability to change input/output 
lines to be either inputs or outputs in 
any combination in increments of 
eight makes these cards unique. This 
is accomplished on the 1632TTL and 
1664TTL by inserting pluggable 
components into sockets which are 
mounted on the printed circuit 
boards. On the 1664ATTL recon- 
figuring is accomplished by inserting 
pluggable jumpers. 

The 1632TTL contains a 16 bit 
status register and provides the flex- 
ibility of operating either under pro- 
gram control or program interrupt. 
Two separate interrupt circuits are 
provided, one for each 16 bit in- 
put/output port. Four uncommitted 
read/write bits of the status register 
are made available to the user for con- 
trol purposes. The 1664TT1 and 
1664ATTL contain four 16 bit 
registers and operate under program 
control. Reading and loading of the 
register can be handled on a word or 
byte basis. Both cards contain com- 
mand signals useful for transferring 
data to and from an external device. 

The 1664ATTL is designed with 
latches rather than latch/counters 
and, therefore, are more noise im- 
mune when driving long cables. The 
1664A TTL can also be jumpered to 
supply fused +5V through the input 
cable to power opto isolation panels. 

The 1664TTL has a jumper pro- 
grammable reset feature which allows 
all output latches to be either set or 
cleaned upon a bus reset signal. 


Priced from £190 each, these cards 
are an addition to the range of over 
one hundred LSI-11 compatible func- 
tion cards available from Amplicon 
Electronics Limited. 


MORE ON SOUND FOR 
YOUR PET 


Last issue, an article appeared in 
the COMMODORE MAGAZINE 
which explained how to connect an 
audio amplifier to the CB2 line on the 
user port. Ordinarily, there is no 
harm in making the connection 
directly as shown in that article. 
However, it is possible that you may 
be using an amplifier which, either 
due to a malfunction or by an uncom- 
mon design, will present the CB2 line 
with an overload condition. Since 
there is no overcurrent protection for 
the CB2 line, it would be wise to pro- 
vide such protection for the CB2 line 
yourself. This is simply done by in- 
serting a 1OOK, 1/10 or greater watt 
resistor in series with the signal line 
(ie. pin M or centre conductor of 
cable) as shown in the following il- 
lustration. This will protect the CB2 
line even if there is a short at the 
other end of the patch cord or even in 
the cord itself. 


Rear view ol 
Edge Card Connec tor 





If you own an 8032 or the 12” 
display 4016, you will no doubt be 
aware the computer produces sound 
without the aid of any add-ons thanks 
to the internal ‘speaker’. Consequent- 
ly, running programs with sound in- 
cluded, will work without any solder- 


Arcadaphobia 


ing or screwdriving. Experiment with 
sound in your program, as it can be a 
very valuable addition e.g. it draws at- 
tention to when an input is required 
or accepted. 

When the salesmans back is turned, 
try this one line instruction on an 
8032 to change the ‘chime time’ - 


POKE 231,150: PRINT CHR$(7) 


The following table is of use when 
programming with sound as it gives 
the musical note equivalents to the 
poke values. 


POKE 59467,16 to enable sound. 


POKE 59466,51 generates a pleasant 
square wave. Also try values 
of 10, 14, 15, and 85. 


POKE 59464,0 is silent. The follow- 
ing values are for the musical 
note equivalents listed. 


Bb=25] os first C) B =124 
C =237 (first C) Cl =117 
C#=224 Cl#=111 
D =211 Dl =104 
D#=199 Dl#= 99 
E =188 El = 93 
F =1]177 Fl = 88 
F#=167 Fl#= 83 
G =157 Gl = 78 
G#=149 Gl#= 73 
A =140 Al = 69 
A#=132 


Try the following two short programs. 


10 POKE 59467,16: POKE 59466,51 
20 LET X=INT(255*RND(TI)+1) 

30 POKE 59464.x 

40 FOR I=1T0250: NEXT I 

50 POKE 59464 

60 FOR I=1T0250: NEXT I 

0 GOTO 20 


POKE 59467,16: POKE 59466,10 
FOR I=1T016 
30 FOR U=255TO1STEP-1 
40 POKE 59464,U 
NEXT U 


NEXT I 
70 POKE 59464,0 


NOTE: Always remember to restore 
the cassette functions by POKEing 
everything back to 0. 


Thanks to the people who’ve written in lately with their highest scores. So 
here we have the latest list of superstars: some of these scores are truly quite 
amazing. What else do these people do ?! 


Invaders — 
Acrobat — 
Breakthrough — 
Night Drive — 
Car Race _ 
Crazy Balloon — 
Cosmic Jailbreak — 


Cosmaids 


57,790 by C. Douglas-Fairhurst 
47,460 by Patrik Albertsson 
4,477 by C. Douglas-Fairhurst 
1,528 by Patrik Albertsson 
9,560 by Pete Gerrard 
8,540 by David Pocock 
128,140 by Giles Murcott 


388,290 by Matthew Sargaison 


So that means that only two records have survived since issue 4, those being 
for Car Race and Crazy Balloon. Keep ‘em coming! 
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SUPERIOR PROGRAMS 
~ FOR THE CBMPET 


‘LANDSOF 


PAYROLL PLUS £150 + VAT 


This must be the finest PLAIN PAPER PAYROLL system available for the CBM PET. 


It is designed to the Inland Revenue Specifications for Computerised Payroll. The program is very ‘user friendly’ and 
should present no problems even to those who have had no previous computer experience. The manual is written in 
simple language and avoids computer jargon. 


WORDFORM £75+VAT 
This remarkable MACHINE CODE program will solve the problem of the majority of PET owners who desire high- 
grade word-processing capability but cannot really justify the usual high prices associated with the better packages. 
it will literally perform 90% of the functions of the expensive programs, and it would be rare to require the extra 


few functions in actual use. 


See themat your approved vo (=¥e] (=14 


Published by LANDSLER SOFTWARE 29a Tolworth Park Road, Surbiton, Surrey Tel: 399 2476 


Missile Attack 





Missile Attack is an unusual and 
highly entertaining new game for 
PET systems. Players must 
demonstrate both manual dexterity 
adn decision making in order to win. 

The object of the game is to defend 
three cities from decending enemy 
missiles. This is achieved by moving 
cross-hair sights into the path of the 
decending missile and then launching 
an anti-missile from one or three 
launch sites. 

The skill of the game is to decide 
from which base to launch the 
missile, where to position the sights, 
and when to launch. If a missile is 
launched at the right time a number 
of the decending missiles can be 
caught in the same explosion thus 
conserving the limited number of 
anti-missiles available at the three 
bases. 

As each attack wave is defeated 
bonus points and cities are awarded 
depending on the difficulty level and 
how much cities and anti-missiles 
have been conserved. 


Getting used to using the controls 
may prove quite a challenge for the 
beginner as the cross-hairs seem to 
have a life of their own. 

As the player becomes more ex- 
perienced, different techniques need 
to be mastered to destroy the decen- 
ding hordes and the high score can 
always be pushed a little higher. 

At present the game retails at 15.95 
for diskette and 13.95 for cassette 
(inclusive fo VAT, postage and pack- 
ing). Attractive dealer discounts are 
also offered for bulk purchases. 


For further details please contact:- 


Softprint 

11 Wyverly Crescent 
New Malden 

Surrey 





Second 
Hand 
PETs 


2040 disk drive, 3020 PET 
(complete with Toolkit) and a 3040 
disk drive, all in good condition, with 
an asking price of 1,450 pounds. 
Name and address to contact :- 
Peter Smith 
48 Woodham Ways 
Woking 
Surrey 
GU21 5SJ 
Tel. Woking 67839 


3022 printer, 19 months old with 
light use, for 395 pounds. Free 
delivery if you live in the Republic of 
Ireland. Name and address to 
contact:- 

Frank Chambers 
Rock House 
Ballycroy 
Westport 

Co. Mayo 
Ireland 














Reviews 


Faster Basic - Supersoft 


There is considerable interest 
in the various compilers becom- 
ing available for the PET. These 
offer considerable speed im- 
provements compared with in- 
terpreted programs. 

However, the programs available 
are not cheap, particularly for the 
hobbyist user. It is therefore a 
welcome step for Supersoft to make 
available another of their enhance- 
ment chips; this time called ‘‘Faster 
Basic’. As is now usual for Supersoft 
chips versions are now available for 
any PET or CBM machines, and the 
program will reside in any spare 
socket : the purchaser merely states 
his choice at the time of purchase. 

As the program is less than 2K, a 
small extra fee will enable you to have 
this chip and another 2K Supersoft 
product incorporated into a single 4K 
chip. This is both convenient and 
cheaper than using a Spacemaker, 
Socket-2-Me, or Rompager for the 
same purpose. 

The program speeds up the execu- 
tion of GOTO, GOSUB or THEN 
followed by a line number. Variables 
and integers are interpreted more 
quickly than usual, and variables are 
found in memory instaneously. 

The program actually modifies 
each program statement the first time 
it is executed, but any changes are 
reinstated when listing or saving is 
carried out. 

A simple SYS toggles Faster Basic 
on and off, even while a program is 
running! 

The program is fully compatible 
with all BASIC commands, and 
places no constraints on how the pro- 
gram is written (unlike some com- 
pilers). 

The effects seems to be about 50% 
to 100% speed improvement in Basic 
programs. Of course, machine code 
programs or subroutines will not be 
improved. 

The only disadvantage likely to be 
encountered is that programs which 
modify themselves (a somewhat ex- 
otic rarity) will probably fail to func- 
tion. 

Finally, and this is a major aid to 
producing programs that are well 


structured, if you are using Faster 
Basic, many of the tricks which you 
are used to using in order to speed up 
program execution, e.g. declaring 
variables at the beginning of the pro- 
gram, most frequently used ones first, 
and so on, will help you even more. 

All in all a well designed program- 
mers aid. 


Instant Rom - Greenwich 
Instruments 


This product is unique com- 
pared with its competitors, in the 
range of products offered, in the 
mode of operation and in the 
variety of low-priced gadgets of- 
fered, which considerably 
enhance its capabilities and ease 
of use. 

The concept is simple : a combina- 
tion of ROM (Read Only Memory) 
and RAM (Random Access Memory), 
in a single package, capable of being 
plugged into any socket of the CBM 
machine, be it a Basic slot or a spare 
slot. More correctly, it is RAM which 
can be made to look like ROM. 

The special feature which make this 
range of products unique is the inter- 
nal battery, which makes the data 
capable of being retained for up to 10 
years! This means one has the 
equivalent of an EPROM (Erasable 
Programmable Read Only Memory), 
which can be reprogrammed at high 
speed. A program can be wirtten into 
Instant Rom using any Assembler or 
Monitor, and run immediately! This 
is accomplished by connecting a lead 
to the Write Enable pin of the 
memory expansion port. Removal of 
the lead makes the program complete- 
ly secure. 

An additional lead may be taken 
from the Instant Rom to the System 
Reset pin. This saves one having to 
remove a lead on switch off, and 
prevents garbage being written at the 
moment of switch on! However, your 
program may be erased accidentally! 

These handy devices come in 2K, 
4K and 8K sizes, and the latter 
enables two 4K blocks of memory to 
share one 4K socket, and, using one 
of the many adaptors also offered, 
switching between the blocks is 
achieved by software, using the 8 bit 
Output port, also available from 
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Barry Miles 


Greenwich Instruments. This in- 
genious device plugs into any ROM 
socket, and the ROM is then plugged 
into the port. The ROMs behaviour 
is not affected in any way. 

The port has 8 output pins, cor- 
responding to bits DO to D7 on the 
data bus. Writing or Poking to the 
port sets any pin to 1 or 0, so that 
each pin may be used to select a 
ROM by connecting it to any other 
adaptor, or to an Instant Rom direct- 
ly. A single Poke can activate up to 8 
ROMs, and the adaptors may be 
daisy chained! 

Other adaptors enables two ROMs, 
EPROMs or Instant ROMs to oc- 
cupy the same socket, and they are 
then selected by means of a link, or 
from software!! 

The breaking of pins on an Instant 
Rom is not to be recommended, the 
8K version costs 89 pounds, so it is a 
relief to know that the company sup- 
plies, for a mere 3 pounds, a carrier 
that will stand many insertions and 
removals without the risk of damage. 

The whole range is extremely ver- 
satile, and the non-volatility of the 
memory is extremely welcome. What 
you get with Instant ROM is the con- 
venience of an EPROM, without the 
inconvenience or cost of an EPROM 
programmer, or of an eraser. Anyone 
interested should study very carefully 
the excellent documentation provid- 
ed, because the possible permutations 
of the various adaptors are numerous, 
and will repay careful thought. 

The company also suppliers 
““Charger’’, which is a tape based pro- 
gram for setting up your own 
character generator and putting it in- 
to Instant ROM. If you use the 8K 
Instant ROM you can choose bet- 
ween four new fonts and the original 
one! Using the output port, you can 
switch between them from software! 
You can also modify the characters at 
will. 

The range includes a VIC system, 
8K of Instant ROM, volatile or non- 
volatile, for memory expansion and 
ROM emulations. 

So what are these Instant ROMs to 
be used for ? 

The most obvious use is for rapid 
program development, particularly 
where it is intended that the 


program should reside in one of the 
spare ROM sockets. It will be a much 
quicker process to use these devices 
than it will be to blow and re-blow a 
series of EPROMs. Apart from this, 
the simplicity of changing code, in its 
eventual location, is attractive! 

Autoboot systems are also a 
possibility, and Basic programs can 
be made to load and run in expansion 
sockets, by the use of simple techni- 
ques. 

The owners of programs protected 
by chips may find it much more con- 
venient to save the contents of the 


SLOLEN .cscccorscsscces 


The following units have been stolen 
from Eastbourne College of Educa- 
tion, Ames Road, Eastbourne, 
Sussex:- 


chips onto disk, and load those into 
instant ROM as required. It is possi- 
ble to save the program plus security 
chip, so that it loads in one go, 
although the loading then becomes a 
lengthier business than usual. 
Similarly, if you own a variety of pro- 
priety chips, and have no wish to lay 
out cash for Spacemakers, Rom- 
pagers, and the like, you may use the 
same technique. 

If you are an inveterate chip collec- 
tor, you may have a special, disk, with 


a menu asking you which chip to & If found, contact Detective Con- 
on eas stable Haddow of Eastbourne C.I.D. 
| ; on (0323) - 22522 X 2453/7 


ducts is very attractive, and well 
worth consideration by the serious 
user. 


1 4032 Ser No. 100525 


1 3040 Ser No. 608564 


1 3022 Ser No. 115399 





PETALECT. Anall-round computer service. 


PETALECT COMPUTERS of Woking, Surrey have the experience and 
expert capability in all aspects of today’s micro-computer and word 
processor systems to provide users, first time or otherwise, with the 
Service and After Sales support they need. 


COMPUTER REPAIRS AND SERVICE 

If you're located within 50 miles of Surrey, PETALECT can 
offer FAST, RELIABLE Servicing with their own team of 
highly qualified engineers. 

24 hour maintenance contracts available. Our service contracts 
start at around only 10% of your hardware cost per annum 

for on-site, or if you bring it to us at our own service dept., 

it costs only £25 plus parts. Representing real value for money. 


MICRO COMPUTER SUPPLIES 


PETALECT can supply the great majority of essential microcomputer-related 
products promptly and at really competitive prices. Such items as:— 


TAPES®PAPER@FLOPPY DISKS@®PROGRAMMES FOR BUSINESS@SCIENTIFIC OR 
RECREATIONAL APPLICATIONS®MANUALS®COMPUTER TABLES @DUST COVERS 
RIBBONS @TOOL KITS@PRINTERS@®ELECTRONIC INTERFACES WHICH ARE 
PETALECT’S SPECIALITY. 

If you want to find out more about what we can and would like to do 
for you, why not give us a ring on Woking 69032/21776. 


























We're worth getting in touch with. 
SHOWROOM = | ; Pp ae 


32, Chertsey Road, Woking, Surrey e mL 
COMPUTERS 


SERVICE DEPT. 
33/35 Portugal Road, Woking, Surrey 








Review 


D.F. Pocock 





Assembler Tutorial 


A new product just released by 
COMMODORE, which is a must 
for all would-be machine code 
programmers is the 
ASSEMBLER TUTORIAL. This 
package, developed by W.Owen 
Murcott, will help you learn how 
to write Assembly Language pro- 
grams. 

The tutorial is split into three 


modules, these modules consist of an 
introuction, a self test (in the case of 
module three a set of Programming 
Exercises) and several topics. As you 
can see below, each lesson deals with 
a different topic. The self-test is a 
progress check. It enables you to see 
which topics you need to study fur- 
ther. 

The outline for the package is given 
here. 
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An early version of the 
ASSEMBLER TUTORIAL was on 
show at the PET SHOW this year 
and generated a great deal of en- 
thusiasm among the representatives 
of schools and colleges. The final ver- 
sion is now being marketed. 

The ASSEMBLER TUTORIAL 
can be used as an aid to classroom 
teaching or as an individual ‘teach 
yourself? course. Demonstrations of 
some of the more complex concepts 
involved are included in the lessons. 
Repetition of individual sections is 
easy if you did not fully understand 
them the first time. This facility 
enables you to progress at your own 
pace. 


The ASSEMBLER TUTORIAL 
is an excellent aid to those wanting to 
learn Assembly Language programm- 
ing. 2 be ASSEMBLER 
TUTORIAL can also teach a thing or 
two to those who already know 
something about Assembly Language 
Programming. (as it did to me). Of 
course if you are up to the same stan- 
dard as Jim Butterfield, you will not 
need it. 

The ASSEMBLER TUTORIAL 
will be available on tape or disk from 
your local dealer. A users handbook 
which outlines the course is supplied 
with each package. 

The cassette version will run on 
any 40 column PET with 8K RAM 
or more, however users of BASIC 1 
PET’s (the original ones) will have to 
put up with mixed upper and lower 
case. It is a set of four cassettes con- 
taining the 30 programs. This version 
will be sold for approximately £50. 

The disk version will have the 30 
programs on two disks. These will be 
available at about the same price. 

The following table gives the order 
number for disks that will run on the 
different COMMODORE systems. 


Processor Disk Order Code 


2040 
3040 
4040 


3016 


3032 AST3140 


4040 AST4140 


4040 


4016 
4032 


AST8340 
AST8350 


4040 
8050 


8032 
8032 


Printerproot Acoustic Lovers 


FREE 
PET/CBM 


COMA@L 


—— , ) “The excitement in Europe (over COMAL) 
; ; ) 
With, rewates'pr oof — the b¥eong quet Type ; seems to be growing by the hour and we look 
forward to America being able to share in the 
ee gucubeunes. bu ke is eos cee good fortune of having an easy-to-use, struc- 
tured, planning language at lasi.” 








CBM-3022 size model, the Acoustic Specialists at 
PRINTERPROOF have designed a Cover for the new 4022 
Printer from Commodore. (Product Approval Applied 
for). 


The power of PASCAL and the ease of BASIC 
can now be yours with Commodore COMAL, a 
new programming language from DENMARK. It 
is being distributed in the USA by the COMAL 
USERS GROUP. To find out more about COMAL 
and how you can get a free disk copy of Com- 
modore COMAL, send a large self-addressed 
stamped (35 cents) envelope to: 





COMAL USERS GROUP 
hs ’ 5501 GROVELAND TER., MADISON, WI 53716. 
NO Nose US Ceasd Noe. PRintskhessk ir fk Yourself | Outside USA please add $2.00 for airmal and handling. 
*PET & CBM are trademarks of Commodore Business Machines. 





The efficient sound reduction by the latest 
addition to our range brings the noise-level of the 
printer to well within the Noise Criteria for 
General Offices (ISO Rating 55) and is achieved 
without sacrificing accessibility to paper or 
switches. 


G 3 ay Software 


23 Park Hall Road,London N2 9PT. Telex: 298951. 
Telephone: 01-444 5104 & 01-404 5011. 


Fully-tested, precision-made and built to last in 
sound-deadening heavy-gauge aluminium with perspex 
window and foam—-lined for maximum noise-absorption 
the PRINTERPROOF cover is attractively texture- 
finished in Black and Cream to please the eye as 
well as the ear. 

And you can say goodbye to paper spillage thanks to 5,” FLOPPY DISKS: 
the ingenious two-option paper-feed guide devised 
and incorporated by our designer to control your 
paper. Illustrated instructions are enclosed with ® 

eee mei All Double Density for Commodore 
The internal dimensions of 4lcms wide by 37cms. 
deep by I5cms. high, mean that other printers 
similar in style to the CBM 4022 can be 
accommodated. External dimensions are: 46cms. by 
4lems. by 17.5cms. 


WABASH Single Sided 70 track £16.50 
VERBATIM Single Sided 40 track £18.00 
VERBATIM Single Sided 77 track £28.00 


The pricé of £129 + £2 carriage + VAT buys, we 
claim, the most effective Acoustic Cover on the 
market. You will be delighted along with all our 
users. 


We have a few shop soiled commercial pro- 


grams in stock - up to £100 off list price 
(diskette & security chip are mint - only the 
manuals are well thumbed). Send s.a.e. for 
details. 

Computer books by mail order - no extra to 
pay for postage or VAT. Send s.a.e. for 


You'll Enjoy wk NON- SSuND OF IT! 
TRy NOT REARING IT Fee YouRSéLF! 


p ‘ t f details. 
A Division of Bradton Ltd. GBS SOFTWARE - EVERYTHING COMMODORE 
Your cheque with orders, please, to PRINTERPROOF Sales 
Office, 12 Wokingham Road, Reading RGh 1G, or contact Peter 


Stayne on Reading (0734) 661432 for further information. 
Let us know the Make and Model of any noisy printers and we 
will he pleased to quote by return of post for a suitahle 


cover. 


Trade enquiries welcome. 


12 WOKINGHAM ROAD READING RG6 1JG Telephone: Reading (0734) 661432 








PETs take to the Waves 


Gail Wellington 





What was Commodore’s David 
Pocock doing at the World Waterski 
Tournament on the shores of Thorpe 
Park’s Brittania Arena in the middle 
of the working day? Around the office 
the location was more of a surprise 
than the timing because we refer to 
David as “the square format man’’. 
The author of Club News’ series of 
articles on disk programming spends 
most of his working hours in front of 
a V.D.U. His favourite outside 
pastimes are watching television, go- 
ing to the cinema, or taking 
photographs - all square formats! 

So how did he happen to be sitting 
on the grass in the September sun- 
shine watching people hurl 
themselves through the air or gyrate 
on the surface of the water whilst be- 
ing towed behind a speedboat? Well, 
it all started about a week before the 
tournament when one of the tourna- 
ment organisers rang Commodore 
and asked for some help with his soft- 
ware. He wanted to add disk file ac- 
cess to his existing program for scor- 
ing the tournament events. David was 
assigned to help and went to the tour- 
nament in case any last minute fixes 
were required. 

The waterski competitions consist 
of three events; jumping, trick sking 
and slalom sking, with the top men 
and the top women in each event be- 
ing awarded prizes. By a complex 
calcuation points are given in each 
event which are then totalled to deter- 
mine over-all standings. COM- 
MODORE computers calculated all 
of these results. 

The 1981 Men’s overall Champion 
this year was Sammy Duvall, and the 
Women’s honours went to Karin 
Roberge. Both are Americans, Duvall 
unseating British Champion, Mike 
Hazelwood. Ninety men and thirty- 
nine women competed in_ all, 
representing 30 countries, including 
such distant ones as the Phillipines 
and Argentina. 

One COMMODORE computer 
was dedicated solely to the task of 
keeping track of the individual scores. 
Slalom scores are based on the 
number of bouys succesfully rounded 
at a set boat speed and with a 
specified rope length. If a pass is suc- 
cessful, the rope is shortened. 

Women’s champion in the Slalom 


was Cindy Todd of the U.S.A. witha 
final score of 31.25 buoys. Cindy 
completed 1.25 buoys on an 11.25 
metre rope. Although before the 
Thorpe event no woman had ever 
scored with such a short rope and 
Miss Todd’s combined score for two 
rounds won her the championship, 
she did not turn in the best perfor- 
mance of the day. Sue Fieldhouse of 
Australia set the new world record 
with 1.50 buoys at 11.25 metres. 

The Men’s Slalom title went to An- 
dy Mapple of Great Britain in an 
unexpected victory. Mapple, an 18 
year old from Lancashire, scored 4.25 
buoys on an 11.25 metre rope, for a 
new European record. Carl Roberge 
of the USA was second with John 
Battleday of Great Britain a close 
third. The high placings of the two 
British lads made up somewhat for 
Hazelwood’s disappointing four- 
teenth place. 

Trick sking requires performing a 
series of turns on the surface of the 
water and low jumps and turning 
jumps off the boat’s wake. Two runs 
of 20 seconds duration each con- 
stitute a round. The better skiers 
make at least one run per round on 
one ski while holding the rope with 
the other foot. The tricks are assigned 
points according to their difficulty 
and the object is to complete as many 
different tricks as possible in the 
alloted time. 

The large crowds on the shores of 
Thorpe’s Britannia Arena saw Corey 
Pickos of the USA score an outstan- 
ding 17,260 points in the two rounds. 
The greater excitement came, 
however, in the women’s event when 
Ana Maria Carrasco of Venezuela 
edged out Natalie Roumiantseva of 
Russia who was ahead at the end of 
the first round. 

In close competition like this, the 
second COMMODORE computer 
was put to use. The commentators 
both for the crowd at the sight and on 
live television wanted quick projec- 
tions, regarding the points required to 
upset the standings as well as fast 
results. 

This was particularly true for the 
overall standings. ‘If Ana Marie does 
better than yesterday by say 100 
points, how many trick points does 
Karin need to be first overall?” ““How 
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far does Mike Hazelwood have to 
jump to take the overall title from 
Sammy?” These were the questions 
that the COMMODORE people 
were able to answer in seconds using 
the computer. 

The jumping event is simply 
scored. The longest of three jumps is 
the competitor’s score for that round. 
As you might imagine, determining 
the distance is not so simply ac- 
complishied! Two sighting towers are 
located along the shore, and judges 
are positioned behind a sighting in- 
strument at two levels on each tower. 
The angle from each instrument to 
the jumps is measured at the start of 
the event, and the angle to the point 
where the skier lands is also 
measured. Since the distance between 
the two towers is known, by geometry 
it is possible to calculate the location 
of the jumps and of the loading point 
and thus the distance between them. 
Needless to say, jump calculations are 
a natural computer application. 

Predictably, Mike Hazelwood of 
Great Britain won the men’s jumping 
trophy. The crowd had hoped to see 
the elusive 200 foot (61 metre) mark 
fall, but 57.9 was the best Mike could 
manage. Deena Brush of the USA 
won the women’s event, with a best 
distance of 39.60 metres. 


The determination of overall stan- 
dings is perhaps the most complex of 
all of the calculations and therefore 
really shows the advantage of the 
computer. A “‘combine”’ score (pro- 
nounced ‘“‘com-bin-ay’’) is calculated 
for each event and the three combines 
for each competitor are added 
together to give that person’s overall 
score. 

The combine is determined by 
assigning 1000 points to the com- 
petitor with the best single score in 
any round. A proportion of 1000 
points is then assigned to the other 
competitors based on the ratio of their 
score to the best score. For example, 
if the best trick score were 2000 
points, this would be worth 1000 
combine points and a skier with 1000 
trick points would be awarded 500 
combine points. 

It is easy to see from this that if 
anyone in the final round outper- 
forms the best of the previous round, 


all of the combine values change. The 
COMMODORE computer system 
not only made the initial calculations 
simple but when a new top score was 
achieved, updated the standings 
almost instantaneously. London 
Weekend Television positioned a 
remote camera to overlook the screen 
display for these timely results. 

The program to perform the 
scorekeeping and jump calculations 
was written by M.C. Forsdyke and 
Trevor Hill who themselves are 
Waterski enthusiasts. Some modifica- 
tions were made by Dave Pocock of 
COMMODORE to include disk ac- 
cess. 

After the tournament was under- 
way, the officials approached the 
COMMODORE representatives and 
asked if it was possible to calculate 
team standings as well. Modifying the 
existing software at such a late date 
was considered unwise so a third 
COMMODORE computer system 
was brought in. THE MANAGER, 
their new data base management 
system was run on this machine. 
The program created a record for 
each country and the top three scores 
for each event irrespective of gender, 
were entered. THE MANAGER 
totalled each countrys points and 
sorted them in descending order. A 
report was then generated in the for- 
mat required by the World Waterski 





Union officials. COMMODORE was 
able to design the input and report 
formats for this task in about half an 
hour thanks to the flexibility of THE 
MANAGER. 

Throughout the finals on Saturday 
and Sunday, COMMODORE per- 
sonnel updated the standings as re- 
quired. Within minutes of Mike 
Hazelwood’s gold medal winning 
jump, results calculated by THE 
MANAGER were on international 
television broadcasts and were being 
telexed to press bureaux throughout 


the world. These were the final 
results:- 
USA 8519.86 
AUSTRALIA T1123 
GREAT BRITAIN 7665.97 
CANADA 7521.82 
USSR 7000.17 


As with any special event, all did 
not go as smoothly behind the scenes 
as it appeared to the more than 
10,000 spectators lining the shores. 
Power overloading resulting in 
Outages was a continual problem. 

As anyone who has been around 
computers knows, this could have 
been disasterous. However Edcel 
Electronics provided COM- 
MODORE with one of its Centaurus 
Linebackers. This simple-appearing 
grey box sat unobtrusively under the 
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table. When a power cut was ex- 
perienced, the Linebacker came on 
automatically. The instantaneous AC 
power from its battery meant no 
outage on the COMMODORE com- 
puters and therefore no loss of 
records. 

The use of computers in watersking 
was not a one-off for this international 
event. Messrs. Hill and Forsdyke had 
already used their program at such 
events as the British National and 
Junior Competitions. The plan for 
next season is to make the program 
menu-driven and introduce additional 
handholding and checks. This will 
reduce the special knowledge re- 
quired of the operator. Moreover, 
some of the waterski group with elec- 
tronics backgrounds are working to 
perfect an interface that will enable 
the jump judges to align their in- 
struments and have the readings 
automtically transmitted directly into 
the computer. 

Computers, particularly microcom- 
puters, have long been a part of the 
hobby scene. Now, as was evidenced 
at the World Waterski Competition 
by COMMODORE, they are finding 
a place in other hobbies and sports. 
The relative ease of transporting 
them, their low power requirements 
and the almost infinite flexibility of 
their software means that such use of 
microcomputers can only expand. 











Everybody Knows.... 








Jim Butterfield, Torronto 





Some things are so well known about the PET/CBM that nobody 
thinks to say them any more. In fact, if you’re a new PET owner or 
just happen to be around when everyone else found ‘obvious’ 
features, chances are that you still don’t know them. These facts are 
so well known that nobody has bothered telling you about them. 

All of the following items apply to all makes of CBM/PET unless 


specified otherwise. 

All PET/CBM computers have 
both: upper/lower case characters, 
called ‘text’ mode; and graphics/lower 
case characters, called ‘graphics’ 
mode. You can select text mode with 
POKE 59468,14 or graphics mode 
with POKE 59468,12. On newer 
machines (80 column and Fat 40) you 
can select text mode with PRINT 
CHR$(14) and graphics mode with 
PRINT CHR$(142); in this case the 
screen display is trimmed up slightly. 
Not bad when you consider that on 
some computers, upper/lower case is 
an expensive extra. 

If you buy a 32K PET/CBM com- 
puter, you might think that you are 
getting 32,000 memory locations 
(called ‘bytes’). Wrong on several 
counts. First of all, a ‘K’ represents 
1,024 bytes of memory, so your total 
goes up to 32,768. Next, Commodore 
throw in the screen memory for free - 
that’s an extra 1K on 40-column 
machines and 2K on 80-column 
machines that hasn’t even been 
counted. So if you have all that 
memory, how come a fully fledged 
80-column machine with a total of 34, 
816 bytes tells you ‘31743 BYTES 
FREE’? Answer: Because it’s telling 
you how much space is available for 
your Basic program; and that doesn’t 
count either screen memory or a 
number of ‘overhead’ locations that 
have been set aside. Final puzzler: in 
that case, how come if you ask for the 
computer’s Basic free space right 
away, by typing PRINT FRE(0), you 
get an answer of 31741? Where did 
those two bytes go ? Hint: Basic uses 
a two-byte marker to say, ““There’s no 
program beyond this point’’. 

When you press the RETURN 
key, go to the next line. More than 
that: everything on the line you’re 
leaving is received by the computer. 
That means you can go back to a line 
on the screen, change it if you wish, 
and then press RETURN and the 
whole line will be used. If you want to 
go to the next line without having the 
previous line actioned by the 


PET/CBM, hold down SHIFT as 
you press the RETURN key. 

The PET/CBM has a built-in 
timer/clock. Type PRINT TI$ and 
you'll be told how much time has 
elapsed since you turned the com- 
puter on. The TI$ clock works in 
hours, minutes and seconds, which 
means you can set the correct time in- 
to it. If it’s 3.25 pm, just type 
TI$=*152500” and it will keep 
reasonably good time from that point 
on. Since it’s hard to do arithmetic in 
hours, minutes and seconds the com- 
puter gives you a second timer that 
counts in ‘jiffies’: a jiffy is 1/60 of a 
second. The clock and the jiffy timer 
are really the same timing device: 
they both reset to zero when TI$ 
reaches the 24 hours mark. 

Most Basic commands can be ab- 
breviated. The question mark is a 
quick substitute for PRINT, but 
other commands can be abbreviated 
using a method along the following 
lines: to print VERIFY the short way, 
type the V and then hold down the 
shift key and press the E key. The 
result may look a little odd, but when 
you press RETURN, the computer 
will behave just as if you had typed 
the full word. Some keywords are not 
worth abbreviating: IF and TO are 
too short, for example. Others will 
give trouble because they start out 
similarly: GOTO and GOSUB start 
with the same two letters, as do 
NEXT and NEW, POKE and POS, 
or READ, RETURN and REM. The 
computer doesn’t know which you 
want, so might pick the wrong one. 

The PET/CBM will receive from 
the keyboard even when there’s a pro- 
gram running. It will normally store 
up to nine characters, holding them 
in a ‘keyboard buffer’ until they are 
needed. If desired, you can pick up 
keystrokes one at a time while your 
program is running with a statement 
like GET X$ ... X$ will be equal to 
the key pressed, or to nothing (the 
null string, written “’’) if no key has 
been pressed. 
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You can clear the screen, home the 
cursor and/or move the cursor in any 
direction as part of a PRINT state- 
ment. When you type in the state- 
ment, the desired screen activity is 
stored as an odd-looking reversed 
graphic. Later, when the PRINT 
statement is executed, the movements 
take place as planned. The 
mechanism is called “programmed 
cursor” and it’s very good for screen 
animation. 

The newer PET/CBM units con- 
tain a sounding device, but in any 
case you can get sound signals from 
the Parallel User Port. That’s the 
middle of the three connectors at the 
back, and you should connect pins M 
and N to your amplifier - your stereo 
will do - since the signal isn’t strong 
enough to drive a speaker directly. 
You generate sound from your pro- 
gram in the following manner: POKE 
59467,16 turns the sound capability 
ON - before your programs stops, you 
must turn it back off with POKE 
59467,0. POKE 59466,15 sets the 
tone - 15 is a good number but you 
can try others. POKE 59464,100 sets 
the pitch - any value from 10 to 255 is 
audible. Don’t forget: turn it off when 
you’re finished with POKE 59467,0 
or you may have trouble with in- 


put/output. 
All machines except the first 
(Original ROM) have a built-in 


Machine Language Monitor. You can 
get to it with SYS 4. This should pro- 
duce about three lines of cryptic in- 
formation. Return to Basic by typing 
X and RETURN. Later, you may 
learn to do marvellous things with the 
MLM - to start, just Know it’s there. 

It’s sometimes useful to know if so- 
meone is holding a key down. You 
can discover this by using the func- 
tion PEEK(151) on Original 
ROM machines it’s PEEK (515). If 
the value you get is 255, nobody is 
touching a key at the moment. If it’s 
anything else, a key is being held. 
Don’t try to use the value if it’s lower 
than 255 - the numbers will vary from 
machine to machine - it’s better to use 
GET to find out which key has been 
pressed. 

Are there other features that 
everybody knows? I’m sure there are 
lots of others... the problem is, they 
are so obvious I can’t think of them... 
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Update your Character Generator 


This article will show you how to “‘roll your own’’ screen characters, 


as f.ex a £-sign. 


If your PET is of the 2000-series it will also help you to be able to use 
the advertised special character generators with mathematical sym- 
bols or foreign letters or just updating to the newer Commodore 
char.gen.’s where you shift to get capitals. 


The trouble with the 2000-PET is 
that it uses a 28-pin char.gen type 
6540, and the newer char.gen’s are 


24-pin 6316’s. (which are pin- 
compatible with 2516/2716 
EPROM’s). 





So you have to have some form of 
adapter to use the 24-pins IC’s in the 
old PETs 28-pins socket. Fig. 1 
shows a single-sided print lay-out 
which together with an ordinary 24 
DIL socket and a Pick-A-Back socket 
(EURO-DIP part no. HST 28 OG) 
will do the job. Instead of the pick-a- 
back socket, which may be a little 
hard to get, you could use some stiff 
wire of a size that will fit into an IC- 
socket. Notice, that when you mount 
the adapter with its 24-pins char.gen, 
its notch (Pin 1) points to the left 
whereas the old 28-pin char.gen 
ROM has its notch to the right. (Fig. 
2). (Pin 1 on the new char.gen. goes 
via the adapter to pin 14 in the PET- 
socket.). 


24-pin char. gen. 






Figure 2. 
(Aa  Foil-side 
Fe ee ll (down) 
2198 stiff wires | 


or 
pick-a- back socket 


So if you are satisfied with using 
ready-made character generators you 
can make the adapter and then stop. 
If you want to modify one or maybe 
design your own read on. 

I teach on a public school where we 
have 5 old PETs. The problem was 
that we wanted to have some special 


Danish letters and the language 
teachers would like to have some Ger- 
man letters too. We could buy a 
24-pin char.gen. for the newer PETs 
with Danish letters only, so I started 
finding out how the screen characters 
were made. I made the adapter first to 
find out if it would work with one of 
the newer standard Commodore 
char.gen.’s. It did, so my next task 
was to find out how the characters are 
stored in the ROM. After that I 
substituted some of the characters 
with my own and burned them into a 
2516 or 2716 EPROM - and we had 
what we wanted. So if you can get to 
an EPROM-burner you can do the 
same. 

Let’s say you want to have a real 
f-sign instead of the $-sign. The 
$-sign is made in an 8X8 matrix like 
in figure 3. 


Figure 3. 
BLOCK 1] BLotk 2. 





Line 1 / es (arte 1) 
“ing ae fe (2) 
- | CZ 28 ~ 
= a & - 
= ER = 
é 3¢ = 
- 68 - 
= § @o (- 8) 


In the character generator it is 
stored in the form of 8 successive 
bytes. The first byte represents the 
upper line and byte no.8 the lowest. 

Look at the individual lines as con- 
sisting of two blocks of 4 “‘cell’s”’ - 
each ‘“‘cell’? representing a binary 
digit. If you look at line 1, block 1 is: 
0000 and block 2 is: 1000. Translated 
into HEX that is 0 and 8 so line 1 is 
stored as 08. Line 2 is 0001 and 1110. 


Figure 4. 
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That’s 1E ... and so on. The whole 
character is stored as: 08 1E 28 1C 
OA 3C 08 00. 

What does a £-sign look like in an 8 
by 8 matrix? You may have your own 
idea about it, but let’s say you want to 
look like this: (Fig. 4.) After the same 
rules as before it has to be stored as: 
OC 12 10 38 10 12 2C 00 

Now we are able to design all the 
characters we like. 

To replace the $ we have to find it 
first, so let’s look at where in ROM 
it’s stored. 

The characters generator uses a 
total of 2K. It is divided in four equal 
parts. The first fourth (from 
OOOOHEX to 0200HEX) contains the 
characters you see on the screen when 
you turn on your PET and presses 
one key. The next fourth contains all 
the shifted characters, the graphics. 
The last half is what you use if you 
POKE59468,14 - small letters and 
(shifted) capitals. 

In the following all addresses are in 

HEX. 
If f.ex. we take the capital letter ‘A’, it 
is stored in the 8 memory cells star- 
ting with 0008. Shifted ‘A’ (=spade) 
is 0200 higher and starts at 0208. ‘a’ 
starts at 0408 and you have ‘A’ again 
starting from 0608. 

The $ starts at 0120 but you find it 


again from 0520 (POKE 
59468, 14-mode). 
To burn your own EPROM 


char.gen. you load the data from the 
CBM char.gen. into the EPROM- 
burners RAM-area and change the 
addresses mentioned above to what 
you decide is a f-sign. Burn the 
EPROM. If you have a 3- or 
4000-series PET just plug it in. If you 
have a 2000-series use the adapter. 

If you prefer to keep the $ and 
sacrifice some other characters, here 
are some other possibilities: 

[ : 0OD8 and 04D8 

\ : OOEO and 04E0 

J: OOE8 and 04E8 
+: OOF8 and 04F8 

The order in which the characters 
are stored in the ROM is: 
First come the ASCII-characters from 
40 to 5F. That is @,A,B,C,---- 
Delsls » » 9 « LRen come the 
ASCII-characters from 20 to 3F 
which include punctuation marks, 
space, the ciphers etc. 








The ‘how-to’ magazine all about 
Commodore’s VIC computer 


VIC Computing is a great new magazine for users of the VIC. 
Each issue is packed with valuable programming hints, software 
reviews, ‘how-to’ articles and program listings. 


You don't have to be an expert to enjoy VIC Computing. It is 
written in straightforward English for beginners — not computer 
experts. 


Features in the first colour packed issue included: “Anyone can 
Program”, an article to teach you to program in one hour; “But 
What Can It Do?”, an introduction to VIC’s capabilities; 
“Expansion of the VIC”, a guided tour of its add-on capabilities; 
“Using Graphics” covering programming in colour; “Converting 
Software for VIC” — how to convert PET programs; “VIC Sound”, 
data sheet on sound generation; plus “Dear VIC”, “Beginners 
Queries” and “VIC hints”. 


It costs just £6 a year to subscribe to VIC Computing. Can you 
afford not to? 


To: Printout Publications, PO Box 48, Newbury RG16 OBD 


Please enter my subscription to VIC Computing. 


| enclose a cheque/Postal Order for[ ]£6UK [ ]£IR8.50 Eire 
[ ]£9 Europe { ]$20 USA Surface [ ]%$30 USA Air 
[ ]£9 Rest of World Surface [ ]£16 Rest of World Air 


or Charge my Access/Mastercharge/Eurocard or Barclaycard/Visa card 
Pe howiesie nr onemeeiemuance: 
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Basic Programming 





*“CROSS REFERENCE” 
CONVERSION FOR COM- 
PUTHINK DISK DRIVES 


Another fine program contributed 
by Jim Butterfield in CPUCN Vol 2 
No 8 prompted me to tweak it here 
and there in order to get it to work 
with Computhink drives. Other users 
may like to carry out this program 
conversion; the listings given here 
now work with the following system: 
8K PET 2001, Old ROMs 
32K EXPANDAMEM 
memory 
COMPUTHINK 400K (single-sided 
dual-density) drives 
DIABLO 1640 daisy wheel printer 

As Computhink users will already 
know, it is not possible to read a pro- 
gram off disk as a file. Neither is it 
possible to use the GET instruction 
to read in one character at a time. 
However, a program in memory can 
be converted into a file on disk, the 
records being written as decimal str- 
ings, and the file can then be read 
back one string at a time. 

First, save the two programs CROSS 
REF and PROGFILE on the same 
disk, and take a protection copy. 

See figures a and b 

PROGFILE is a short program 
which has to be linked to the progam 
which is to be cross-referenced, ther- 
fore the latter must not contain any 
lines numbered above 59999, 

If you examine the Basic text area 
from $0401 upwards, either by the 
$MEM command, or by MLM or 
Petsoft’s PDAS, you will see that the 
end of a Basic line is signalled by the 
hex byte 00. The end of program is 
indicated by three zero bytes: 00 00 
00. But, when PROGFILE is linked 
to the main program, the last two zero 
bytes of the latter are overwritten; 
they are, in fact, the low and high 
bytes of the link for the next line of 
Basic. In line 60210 you will note that 
once this section of program is run, 
the zero bytes are POKEd back in 
again. The file created terminates at 
the end of the main program (the one 
to be cross-referenced), thus lines 
60000 upwards are excluded from the 
file, and PROGFILE is self- 
destructed by the zero POKEs. 

A few words of explanation about 
PROGFILE: 


extension 


60040 


60050 


PROGRAM : 


1u0 
ll 
126 
lsu 
146 
156 
160 
165 
liu 
174 
175 
180 
1&5 
190 
20U 
206 
21U 
220 
230 
240 
245 
250 
280 
290 
300 
302 
304 
305 
306 
307 
308 
309 
310 
320 
326 
330 


PAGE 


340 
350 
360 
370 
386 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
52U 
530 
535 
540 
550 
560 
565 
570 
580 
590 
600 
610 
620 
63U 


60060 skips the next two bytes, 
which are the low and high 
bytes of the link address to 
the next line of Basic, and 
tests to see if the next byte 
is $60 (the low byte for line 
number 60000). If not $60 
(96 decimal) go back and 


sets the index variable I to 
the start of the Basic text 
area ($0401) 

commences PEEKing from 
1025 upwards until a zero 
byte is detected, which 
signals the end of a Basic 
program line 


Figure a 
CROSS REF 


DIMAS (15),BS (3) 4X$ (500) ,C (255) 

PRINT" (CLR}" 

QOS=CHRS (34) :SS=" "BS (1) =OS:BS (3) =CHRS (5S) : B=-1 
INPUT"VARIABLES OR LINES";2$:C2=5: IFASC (ZS) =76THENC2=6 
FORJ=1T0255:C (J) =4:NEXTJ: FORJ=46TO57:C (J) =6:NEXTJ 

IFC 2=5THENFORJ =65T09U:C (J) =5: NEXTJ : FORJ=36TC38:C(J)=7: NEXTJ:C(49)=8 
C (34)=1:C0(143)=2:C(131)=3 

PRINT" [CUD] [CUD] " 

INPUT" PROGRAM NAME":PS:S0,1,"R",P$,DIS$ 

PRINT" [CUD] [CUD] " 

REM DISCARD LINK ADDRESS 

SR, DRS: IFDRS="E0F"GOTO530 

DRS="":$R,DRS:DRS="" 

IFB=GSOTO246 

PRINTLS; : K=X: FORJ=8TOISTEP-1:PRINT" "sAS(J);:XS=AS$ (J) 
X5=X$+L$ 

IFXS (K) >=XSTHENXS (K+J) =XS$ (K) : K=K-1:GOTO210 

XS (KH) =X$: NEXTJ: X=X+B: PRINT: B=0 

REM GET NEXT LINE, TEST END 
SR,DRKS:AS=DRS$:SR,DRS:BS=DRS$ 

L=VAL (AS) : A=VAL (BS) : IFL+A=0GOTO530 

REM COMPUTE LINE NUMBER 

C=02:Cl=-]1 : L=A*256+L: LS=STRS (L) : IFLEN (LS) <6THENLS=LEFTS (S$, 6-LEN (LS) ) +L$ 
REM GET 3ASIC STUFF 

IF D=] THEND=0 : A=36:GOTO310 

IFE>-1THENA=E : E=-1 :GOTO310 

SR,DRS:AS=DRS: A=VAL (AS) 

IFA<>36G0TO31lu 

D=] 

SR, DRS: AS=DRS$: A=VAL (AS) 

IFA<6 50RA>90THENES=A :GOTC300 

D=0 :GOTO307 

C9=C (A) : IFC9>C1GOTO380 

IFC2=04NDLEN (MS) <STHENMS=""_"+MS:GOTO320 

K=0 : IFB=0GOTO360 

FORJ=1TO8: IFAS (J) =MSGOTO370 


NO: 02 


IFAS (J) <MSTHENNEXTJ : K=B :GOTO360 
FORK=BTOJSTEP-1 : AS (K+1) =AS (K) : NEXTK 

3=B+1:AS (K+1)=MS$ 

C=C2:Cl=-1:MS="" 

IFC 2=5G0T0420 

TFA=1]1 3 7ORA=1 380R4=1 41ORA=1 6 7THENC=6 : GOTO4 70 
IFA=4 40RA=3 2GOTO470 

IFC9<>6THENC=9 : GOTO4 70 

IFC9=CTHENC=~1:C1=4 

IFC>6GOTO4 70 
IFC<OANDC9>C 1ANDC 9 >6THENC 1=C 9: GOTO460 
TFC2=5THENIFLEN (MS) >2O0RC>0GOTO4 70 

MS=MS+CHRS (A) 

ONC 9+1GO0TO180, 480, 480, 480: GOTO300 
BS=BS$ (C9) :CS="" 

SR, DRS: AS=DRS : N=VAL (AS) : IFN=0GOTO180 
IFCHRS (N) =BSGOTO300 

IFN<>34G0T0490 

AS=BS:BS$=C$:CS$=A$:GOTO490 

SC: INPUT" PRINTER" 3ZS 

PRINT" [CUD] [CUD] " 

C=3:2Z=6: IFASC (Z$) =89THENC=4 : Z=12 
OPEN2,C,1:PRINT#2:PRINT#2,"CROSS REFERENCE ~- PROGRAM: 
XS="": FORJ=1TOX: AS=X$S (J) 

IFC2=6THENK=6 : GOTO580 
FORK=1TOLEN (AS) : IFMIDS (AS,K,1)<>" "“THENNEXTK: STOP 
BS=LEFTS (AS, K-1) :CS=MIDS (A$, K+1) : IFXS=BSGOTO600 
PRINT #2: Y=U: X$=BS: PRINT#2,XS;LEFTS (S$, 6-LEN (XS) ) ; 
Y=Y+1: IFY<ZGOTO620 

Y=1:PRINT#2:PRINT#2,SS$; 

PRINT #2, LEFTS (S$, 6-LEN (CS) ) sCS; 

NEXTJ: PRINT #2:CLOSE2: END 


"sPS 
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A. eet deal of interest has been aroused by the (relatively) recent introduction of COMAL onto 
the Lying somewhere between BASIC and PASCAL, i in the sense that it is as easy to learn 
3 as BASIC, but has some of the more useful aspects of PASCAL, like long variable names, a more 


defined structure, and so on. 
Two rules were followed in defining 
COMAL :- 

1) Say what you mean, simply and 
directly. 

2) Choose variable names that won’t 
be confused. 

These were taken from the book 
The Elements of Programming, by 
Kerninghan and Plauger. | 

To learn a little more about COM- 
AL, quite a lot of this month’s sup- 
plement is devoted to it. All the 
material is taken from the newsletter 
put together by the COMAL Users 
Group in Wisconsin, a group who 
have been extremely active in getting 
COMAL off the ground i in the States. 
me othe seen oh a promise 
of a lot more to come, and I hope you 
find it useful. 

If you’ve developed any of your 
own programs in COMAL please 
send them along, as both Len and 
myself would be interested in seeing 
them. This educational section is the 
ideal medium for publishing these 
programs, so let’s make use of it. 
Len’s promised to send me copies of 
anything they produce, so between us 
let’s give COMAL the support it 
deserves. 


BASIC 2 version 

Asa footnote to the COMAL saga, 
work is being done i in this country to 
produce a BASIC 2 version, thus giv- 
ing even wider market coverage. 
When this has been done, we'll let 
you know. My latest information tells 
me we're 98% of the way there : 
details will appear as and when. Len 
in the States is working on his own 
COMAL Users Handbook, superior 
to the one originally produced, and 
again we'll let you know when that 
appears. 

A few notes on some of the other ar- 
ticles in this section. There are a large 
number of colleges producing courses 
for beginners to the world of 
microcomputers, and many of these 
colleges are part of our educational 
workshop scheme. One such college 
is Bradford College, and inside we 


find details of their courses for which 
we're still in time. a 
One of the great advantages of the 


Commodore printers is their ability 
to produce programmable characters 
not accesible on the PET’s keyboard. 
Of particular usefulness to schools 
and colleges would be the ability to 
have Greek characters, as used in 
maths, physics, chemistry etc. Well, 


here we present the answer, in an arti- 
cle from Dr. Heathcote of University 
College, Cardiff. As a footnote to Dr. 
Heathcote : I know it’s taken a long 
time to get this printed, but in mov- 


ing into this job I inherited various 


filing cabinets etc. » and in our recent 
move to a new building (more of that 
next month!) some more material 


came to light, and the good doctor’s 


article was one of them! So thank you, 
and I’m sorry it took so long. 


Further to a reader’s request for a 


program that produces formatted 
listings, here we have the answer. 
E.g. a cursor down appears as crd , 
and so on. All kinds of features are 
also built into the program, which is 
an enhancement to one that appeared 
in an earlier newsletter, including 
such things as title and date, page 
numbers, right justification of line 
numbers, and prints a listing as it 
would appear on the screen, i.e. up- 
per and lower case is upper and lower 
case. As with any program, I suggest 
you save it before attempting to run 
it. Disasters have happened! 

Next we come to a couple of articles 


by Nick Green, Special Projects 


Manager in Commodore, and with a 
major interest in PETs in education. 
The first is a report of a visit to a 
comprehensive school using PETs, 
and the failures and successes they’ve 
experienced. Secondly a visit to a ma- 
jor booksellers, to take a look at the 
kind of aids available. 


Programmable Sound 


Generator 
The next article is entitled ““Connec- 
ting the General Instruments 


AY-3-8910 Programmable Sound 
Generator to the 6502/6800 bus’. 
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fects. 


The what >! To quote from the arti- 
cle, the AY- 3-8910 sound generator is 


eh.) capable of generating three 


=| 


simultaneous tones, each of which 
can be separately controlled in 
amplitude and/or mixed with noise to 


produce a wide range of sound ef- 
Entirely digitally controlled, 

this makes it very suitable for use 
with a micro processor. So now you 
know! I’ve included it with this sec- 
tion because I think it would make an 
interesting project for a school runn- 
ing PETs. If any of you attempt it, 
Pde appreciate a report of how y you get 
on, and I’d reproduce that in a. future 
newsletter : encouragement for others 
is always vital. 

The COMAL section appears next, 
and to sum up for the month we Tae 
the latest additions to the educational 
workshops list. I know I said in 
September ’s educational editorial that 
there were no “amendments for that 
Pe month, Bee there 
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VIC . 

As I request in the main editorial 
for material, I’d like to put in a re- 
quest here for any VIC-based material 
you find out. The main purpose of a 
magazine about microcomputers 
ought to be to pass on information 
about that microcomputer. In other 
words, to help repay your subscrip- 
tion in terms of information eieaned 








and thus time saved in your own pro- 
gram development. So, whatever you 
find out, pass it on! If it saves so- 
meone time, it saves them money. 





Users Group, sees couple ae 
VICs, are doing all kinds of in- 
pune: yo os ts ese Bemours 





aa Heats auile in yet. “We oT Reson 
know! Anything else they produce 
will also, of course, be passed on. 

One thing I can tell you about 
I.P.U.G. is that they’re forming a 
VIC Users Group in the not too dis- 
tant future. Again, as soon as I find 
out what kind of form this will be tak- 
ing, I'll let you know. 

So that’s it then, possibly the two 
most important developments in 
education in recent times : the VIC 
and COMAL. The former for inex- 
pensive access to the world of 
ee and the latter for an 

introduction to producing struc- 
tured, dendable programs. Whether 
the two will ever be compatible we 
just don’t know, but that’s something 
for the future. 

Whatever is happening, via the 
“yellow pages” we'll keep you in 
touch! 











Megapalm Limited specialises in 
the analysis, design and installation of 
computer based business systems. 

z Hee have been ae in 





‘Qnd Personal tose World 
Show’ in London in that year. Here 
are a few extracts from their 


brochure: 
Megapalm Limited operates a local 
microcomputer bureau service. We 





are situated in the North West of 

England and able to supply complete 

computer systems (hardware and soft- 
ware) in Lancashire, Cumbria and 

West oe We have clients in 

such places as.. 

Carnforth 

Caton 

Dalton in Furness 

Lancaster 

Liverpool — 





“Boi i the North West of Bagiand 


Papi Ga ceo nea ag a 


able to supply Megapalm Softwar 
You may contact us either eaeey or 












through your local microcomputer 
dealer. 


Our Software Editor. 

All Megapalm Software has been 
written by or under the supervision of 
J.R.Mace B.A., M.Sc, F. C.A. 

Roger Mace is a Senior Lectu 
Accounting and Finance at the 
University of Lancaster. 

He is author of several articles and 

other apepbeanans including the 
, ‘Management Information and 











Binavee re ois (De 
from Department of Accounting aad 
Finance, University of Lancaster, 
Lancaster LA1 4YX). 

One of his forthcoming publica- 
tions (1982) is a book provisionally 
entitled ‘Basic Program Design for 
Accountants’. (Details from Philip 
Allan Publishers Ltd., Market Place 
Deddington, Oxford OX5 4SE.) 


pNeattes of all our Software (sub- 
change without notice) 














1. All Megapalm Software for the 
Commodore 8000 Series of 
Microcomputers is supplied in com- 
piled form to obtain the speed and 
sophistication of DTL BASIC. (DTL 
BASIC is a Basic Compiler by Drive 
Technology. The main advantages of 
DTL BASIC are that compiled pro- 
grams run much faster than on the in- 

terpreter, and occupy less store than 
uncompiled programs). 


2. All Megapalm Software is believed 
to be cost-effective and user friendly. 


3. Bad-user apuice dercaheg in this 
training OF a eens sais neni 
nel. 

















4, All Megapalm Software is interac- 
tive and is personalised for each end- 


5. Hardware for which Megapalm 
Software is designed can also be used 
for other purposes, including word 








6. Pre-installation consultancy on 
system design is available from 
Megapalm Limited on request. 
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7. Dealer Demonstration packs are 


those fo - 
; MiDVO 1C ing 





D seas peas Praineneiee with 
optional link to automatic cheque 
writing. 

3. nominal ledger, trial balan 
production of « ‘on nidamianel financial 
accounts. 

A user may elect to integrate these ap- 
plications with one another in almost 
any combination and with SHER Aer 
allocation of costs and revenues t 
centres’ if required. 

Features of G-PAC Suite. 

1. Full audit trails and elaborate pro- 
grammed controls to ensure that in- 
valid data will normally be rejected by 
the system. 

2. Over 3100 transactions 
on each disk. 














3. Up to 99 financial codes, any of 


which may be analysed to greater 
depth by use of detailed account 
codes, up to a maximum of 250 detail- 
ed codes (and overall maximum of 
about 290 ‘live’ codes on each disk, 
with the remainder left untitled). 
Typcial end-user price... 
around £1000 + VAT 


service for estate agents. 

* Large capacity - 1800 properties 
and 1800 applicants on a single ae 
disk. 

* Data recorded for each property 
apart sou its address and the 

price includes... sking 
caiiol adhe and selling status docu- 
property type - semi semi-det ete. 
property type - hse bung flat etc. 

ae exe state of fodenticationtcon 

















dist onienae 
location - see area code size of 
garden 
number of garages, beds, baths, 
reception rooms & habitable rooms 
type of central heating 
‘granny-flat’ potential 
‘with land’ 
























amenity catchment area. 

* Data recorded for each applicant in- 
cludes the applicant’s attitude to each 
of the above factors, as well as his 
name and address and the price of 
properties in which he might be in- 
terested. 

* Printed output includes... full or 
selective listings of property. 

* Judgement or standardised mat- 
ching procedures for any combina- 
tions of the available criteria. 
End-user price ............, £800 + VAT 


Courses at Bradford College 
Their leaflet describes these courses 
“intended to be part of an educa- 
tional service to the community of 
Bradford and as such are aimed at in- 
dividuals and at commercial, in- 
dustrial and other educational institu- 
tions”. If you belong to an industrial 


or commercial concern, then they can teachers have to become an associate 
discuss courses for employees tailores member of the college :this costs just 
specifically to their needs : all you 10 pounds. . 
have to do is write to the college. As well as holding a number of two 
As part of their commitment to the and three year courses, there are a 
Commodore Educational Workshop couple of evening classes which could 
scheme, the college provide on every be of interest to those of you in or 
Friday evening up until 8.30 p.m. near the area. One on information 


(but not during college holidays), an and word processing : telephone Mrs. 


opportunity to get a hands-on session B. N. Holmes (Bradford 34844, ex- 
with computing (specifically PETs). tension 223), who is the course tutor, 
Options to be presented will be ex- for details. The other is on. computer 
ploring available software and its based learning : telephone Mr. F.P. 
suitability for an educational environ- Marrow (same number, extension 
ment, amend and develop software, 163) for details of this one. Both these 
gain experience in the use of com- courses start in January next year, so 
puter hardware, and develop and we're in plenty of time. 

discuss ideas on using computer bas- . 

ed learning techniques with other If any other college would like to 
teachers. This is free for teachers pass onto me details of courses 
employed within the Bradford they’re holding, I’d be pleased to 
Metropolitan District, and other publish them. 





Educational Workshops 





Here are the latest additions to the list of educational workshops. 


Establishment PETs 


Mr. B. Jones 8 
Slough College of Higher 

Education 

Wellington Street 

Slough 

Berkshire 


Mr. R. Broadley 15 
Dept. of Social Studies 

Trent Polytechnic 

Burton Street 

Nottingham 


Mr. R. A. Clarke 4 
Computer Centre 

Birmingham Polytechnic 

Franchise Street 

Birmingham B42 2SV 


Mr. J.R. Park 9 
Merchant Taylors School 

Liverpool Road 

Crosby 

Liverpool L23 0QP 


ASCENTS 2 
Shiremoor Teachers Centre 

Park Estate 

Shiremoor 

Newcastle Upon Tyne 

NE2 1HN 


Dr. J.P. Chester 20 
Dept. of Applied Science 

Moylish Park 

Limerick 

Ireland 


Mr. R.C. Bennett 3 
Whitland Grammar School 

North Road 

Whitland 

Dyfed 

Wales 


Establishment PETs Courses 
Courses Mr. D. Voulgaridou 5 Possibly 
Vas. Georgiou 16 
Yes Thessalonika Greece 
R.E. Smith 1 No 


Mayfield C.E. Middle School 
St. Vincents Road 
Ryde 

Yes Isle of Wight 


Dr. K.W. Glasson 1 Help and Advice 
11 Lancaster Cottages esp. remedial 
Lancaster Park Richmond ) 

Surrey 


Mr. J. Aspinall 12 Yes 
West Midlands College (H.E. ) 

Gorway 

Walsall 


J. Battisti 3 Yes 
City of Liverpool College 

(H.E.) 

Liverpool Road 

Prescot 

Merseyside L34 INR 


Mr. W.R. Houston 13 Yes 
Peterlee Technical College 

Peterlee 

Co. Durham 


Mr. R. Bird 3 Yes 
King Edward’s School 

Witley 

Godalming 

Surrey GU8 5SG 


And there is also one correction to an entry: apologies to all 
concerned. 


Help and 
Advice 


Help and 
Advice J.I. Meardon 3 Internal 
Adams School 
Lowe Hill 
Wem | 
Shropshire SY4 5UB 











Comal Introduction 





I make no apologies for reproducing here the almost complete contents of the latest information package 
from the COMAL Users Group in the States. This is a body of people who are very keen to get COMAL 
well and truly established as THE programming language of the ‘80s, and probably beyond as well! Read 


on... 

Anyone using COMAL naa we 
consider a COMAL_ pioneer. We are 
breaking the way for COMAL. So, 
let? S “make it easier on ourselves. We 
‘Beene acne ‘USER GROUP 
DISKS. The idea behind this i is sim- 


cea) ake al 


Boerne 


ane it mpietiier a way fee a bend new 
COMAL pioneer to get some already 
working COMAL programs to 
analyze, to figure out how things 
work. ‘Simply send us a disk (please 
mail it in Floppy Armour, or stiff 
cardboard for protection) of your 
substantial COMAL programs (also 
include any nifty procedures as well - 
listed to disk, ready to merge into 
another COMAL pioneers program). 
In return, we will send you a COM- 
AL USER DISK, of user submitted 
COMAL programs - FREE of 
charge. Or, if you don’t have any 
suabstantial programs to submit, you 
still can take advantage - of this ex- 
change by ordering the disks you 
want (see our, order form). Please, no 


Fiasae aaa cared for 


MIN 


Gian: Disk #2. We LG Saud ike 


our User Group Disks to contain 


useful procedures (routines). that ac- 
complish specific tasks. We are con- 
hee some procedures that can be 

witk the STARWRITER 
printer. One. will, double strike any 
string passed to it. The other will 
bold face any strin ng. Both procedures 
are handy for anyone — producing 
reports or printouts on a STAR- 
WRITER. We. hope COMAL 
pioneers with other types of ‘printers 
will send in their routines to take ad- 


vantage of each printers special 


features. 


We will pay you to talk about 


COMAL 
COMAL is in dire need of 
assistance. It is battling BASIC 


(already firmly entrenched) and 
PASCAL, the latest language craze. 
We hope you agree that it is better 


than both, but the better languages 
don’t necessarily become popular. It 


takes wide spread support. We hope 


that you are introducing COMAL to 
your friends. And to thank you for 
spreading the word, we will give you 
$5.00 for anyone who orders a 
STARTER KIT and say they heard 
about it from you. We wish we could 
do more to help you, but we can bare- 
ly pay our present printing and 
postage bills as it is. You may notice 
that our Starter Kit now includes a 
FREE subscription to our COMAL 
Newsletter as well as FREE updates 
to both the COMAL MANUAL and 
HANDBOOK. Since COMAL i is just 
getting started, these three additions 
are sorely needed. We are including 
these additions with your previous 
purchase of the STARTER KIT at 
no extra charge to you. 

A condensed order form and price 
list is enclosed. Make as many copies 
as you wish. Notice the new prices 
and expanded Kil. And remember - 


$5.00 for each COMAL convert, the 


more COMAL pioneers the better. 
Look out BASIC, COMAL is com- 
ing! 

COMAL USERS GROUP, 

5501 GROVELAND TERRACE, 
MADISON WI 53716 


What is COMAL? 
If this has crossed your r mind, our 
group can help. We are gathering i in- 


ial | SS, 


formation on this new programming 


language. This information is 
available to anyone who requests it 
and includes a large 55. cents SASE. 


But as SOr this date, information on. 


COMAL is extremely hard to come 
by. Thus far our search for informa- 
tion on> COMAL has been very in- 
teresting. We contacted the PRO- 
GRAMMING LANGUAGES 


‘Special Interest Group of ACM - 
their reply was “Sorry - - this is the 


first I’ve heard of COMAL. “We 
talked with almost every Publisher at 
the National Computer Conference - 
none had any books on COMAL, 
none even had heard of it. One 
publisher told us that it would be 


4. 


foolish to publish a book on a 
language until there was a following 
of some size - and from a business 
standpoint, we must certainly agree. 
So, the need for a COMAL central in- 
formation source is genuine. We hope 
we can fill this need. If you are aware 
of any information on COMAL that 
we do not mention, please let us know 
sO we can add it to our sources (if we 
missed an article, send us a copy for 


our files). Also please let us know if 
there are any errors in our informa- 
tion here, so that they may be cor- 


rected. Hopefully the release of this 


information package will turn up 


leads to better and more complete 
sources for our next update. 

This information was processed 
with WORD PRO 4 ona CBM 8032. 
We also have access to a CP/M 
pies es peeled METANIC 

Te eeenation presented here has 
been reviewed and iS believed to be 
entirely reliable. However, no respon- 
sibility is assumed for inaccuracies. 
The, material presented is for infor- 
mation purposes only and is subject 
to change without notice. 

* PET and CBM are trademarks of 
Commodore Business Machines 
* CP/M is trademark of Digital 

Research 
* METANIC COMAL-80 is 

trademark of Metanic Aps 
* COMAL USERS GROUP : is 

trademark of COMAL Users 

Group 
* COMAL CATALYST is 

trademark of COMAL Users 

Group | 
* FLOPPY ARMOUR is 

trademark of Square 1 
* Z-80 is trademark of Zilog 
* APPLE is trademark of Apple 

Computer Co 
* TRS-80 is trademark of Radio 

Shack 
* SOFTCARD is trademark of 

Microsoft 
* STARWRITER may be 

trademark of C Itoh 
* WORD PRO is trademark of 

Professional Software 








Now, a little background on COM- 
AL. Several years ago, Borge 
Christensen and Benedict Lofstedt 
designed some extensions to BASIC 
to make programs more readable and 
much safer. Then he and _ his 
associates in Denmark (including 
Knud Christensen and Per Chris- 
tensen) modified Data General Cor- 
porations Extended BASIC _ inter- 
preter. They called it COMAL 
(COMmon Algorithmic Language). 
But, events before that were responsi- 
ble for the project itself. In 1972, the 
States Training College in Tonder, 
DENMARK, got a NOVA minicom- 
puter. At that time, BASIC was the 
language being used for teaching new 
students programming. It was easy to 
learn and worked just fine at first. But 
as the short programs grew bigger, er- 
rors became more frequent, and it 
took quite some time to find out just 
where the student had made a 
mistake. The programs were hard to 
read. Borge Christensen and _ his 
associates became dissatisfied with 
BASIC. There were two main causes 
of this dissatisfaction. BASIC 
variable names were too short to relay 
information as to what they 
represented and the many GOTO’s 
made it hard to identify a programs 
tasks. The IF .. THEN was a prime 
offender in this second area. When an 
IF was TRUE, you often had to gO 
SOMEWHERE ELSE, rather than 
immediately executing the statements 
needed at that point. 

Two simple and fundamental rules 
of programming from the book THE 
ELEMENTS OF PROGRAMM- 
ING STYLE by Kerninghan and 
Plauger are virtually impossible with 
BASIC: 

1) Say what you mean, simply and 

directly. . 
2) Choose variable names that won’t 
be confused. im 

However, there are many GOOD 
things about BASIC, such as an IN- 
TERACTIVE MODE, DYNAMIC 
EDITOR, and easy to use I/O 
STATEMENTS. And is definitely 
easy to learn. So, the answer was to 
design a language that kept these 
GOOD points from BASIC, but that 
also had long variable names, and a 
more defined structure. PASCAL 
was the model chosen for that. The 
result was COMAL, a language that 
should be ideal for both the beginning 
student, since it is easy to learn and 
use (like BASIC), and for the advanc- 
ed, since it is structured and powerful 





example a. 


IF <expression> THEN IF CHOICES = "HELP" THEN 

<statements> EXEC INSTRUCTIONS 
ELSE BLSE 

<statements> PRINT "THANK YOU" 
ENDIF - LINECOUNT:+1 

ENDIF 

CASE s<« OF «««. WHEN: «<0: O2RHERWESE <.c JENDCASE 
CASE <expression> OF CASE LINECOUNT OF 
WHEN <expressionsA> WHEN J 


CStactementsA> 
WHEN <expressilonsb> 

<statementsb> 
OTHERWISE 

<statements> 
ENDCASE 


example b. 


FOR eee TO eee STEP eee DO eee 


FOR <variable name> = 
<stateiments> 
NEXT <variable name> 


(like PASCAL). 

Now a quick taste of what COMAL 
is all about. For more complete and 
detailed information, please refer to 
our COMAL STARTER KIT. 
COMAL automatically indents” the 
body of each structure to make the 
program more readable. The ex- 
amples listed below illustrate the in- 
dentation provided. 


IF ... THEN ... ELIF ... ELSE 
... ENDIF 


The IF sets up a condition that is 
either TRUE or FALSE. IF the ex- 
pression evaluates to TRUE, the 
statements following the THEN are 
executed. Otherwise, the statements 
after the ELSE are executed. The 
ELSE and its statements are optional, 
and the ENDIF is not always needed. 
ELIF is short for ELSE IF. See ex- 
ample a. 

The CASE sets up a multiple choice 
type of situation. The value of the ex- 


pression is compared to each value 


after each WHEN (as many WHENs 
may be used as you wish). When it 
compares TRUE, all statements after 
that WHEN upto the next WHEN 
(or OTHERWISE) are executed. If 


none of the WHEN comparisions are 


Figure c. 


WHILE ... DO ..- ENDWHILE 

WHILE <expression> DO 
<statements> 

ENDWHILE 


NEXT 


EXEC INITIALIZE 
WHEN 1, 2, 3, 4 

PRINT ‘TEXTS 
OTHERWISE 

EXEC NEXTPAGE 
ENDCASE 





TRUE, the statements immediately 
after the OTHERWISE are executed. 
Program execution then continues 
with the line following ENDCASE. 
This is similar to the ON .. . GOTO 
of BASIC, however, it is much easier 
to follow and read, since the 
statements to be executed follow each 
WHEN, while the ON GOTO of 
BASIC sends you all over the pro- 


gram with the chain of GOTO’s. 


Another advantage, is that you may 
include multiple expressions follow- 
ing a WHEN (thus you do not need 
to repeat a set of statements to be ex- 
ecuted on two different sets of 


criteria), see example b. 


This is one way to set up a loop in 
COMAL, and it functions just like in 
BASIC. STEP. is optional, as in 
BASIC, and if left out defaults to 1. 
The DO and NEXT are also optional 
depending on the situation. Once the 


value of variable name exceeds the 


value of the expression after the TO, 
the loop is finished and the program 


continues execution with the first 


statement following the loop. NOTE: 
the condition is compared first, and 


the statements executed afterwards. 


Two examples (notice that the first is 
a one line example) are given, as in 
figure c. 


WHILE ERRORS=0 DO 


EXEC FINDIT 
EXEC SORTIT 
ENDWHILE 














Of ene fea 
ee ... ENDPROC and EX- 










PROC is an abbreviati 








= i files are very easy to use. distributing information 
REA WRITE, Tha singly oust in ee 





ce 









kg or MET NIC APS have 50 
cons Cele aan APS s 







ees: ee OF this CO 


run ring on our CP/M system we 
pal “een be eui canon: 


Since this is cabs supposed t 
brief introduction, we will stop here. 
For comeplete details and informa- to Denmar informa- 

| be confused with variables tion, please refer to our COMAL i eae at so ur Co 
with the same name in the main pro- STARTER a saa ame Group Exchange Programs w: 











ee ee 
so our STARTER KIT orders. We 
ee eee 


en yate boi ieee with 
variable names. 





pletely working after only 2 evenings, 
a tribute to the ease of writing in 
COMAL. We are contributing this 
system at the start of the second 
Users Group Disk. The system asks 
for the customers name, address, and 
order particulars. It can then print 
out an invoice, UPS packing slip, 
Visa/Master Charge slip, business 
envelope, package mailing label, and 
filecard. It also adds that customer to 
a disk file, which can be used as a 
mailing list. It takes advantage of 
PRINT USING. It works with our 
STARWRITER printer, but any fric- 
tion feed printer should work. 

We also would like our User Group 
Disks to contain procedures 
(routines) that accomplish specific 
tasks. We put together some pro- 
cedures that can be used with the 
STARWRITER printer. One will 
double strike any string passed to it. 
The other will bold face any string. 
Both procedures are handy for 
anyone producing reports or prin- 
touts ona STARWRITER. We hope 
COMAL pioneers with other types of 
printers will send in their routines to 
take advantage of each printers 
special features. (One user called to 
tell us he was going to send us 
routines for the Epson MX-80). 
Special Note: All CBM User Group 
disks will include a FREE copy of the 
COMAL interpreter. CP/M disk will 
NOT contain the COMAL inter- 
preter, since it must be licensed from 
Metanic Aps (approximate license 
cost is $233). 


MORE ABOUT THE TWO 
COMAL-80 INTERPRETERS 


METANIC COMAL-80 is 
available from Metanic Aps in Den- 
mark. They sent us 50 copies of their 
booklet, SYNTAX DIAGRAMS & 
EXAMPLES. Send us a self address- 
ed stamped (52 cents) envelope (at 
least 6 by 9 inches) for a free copy 
while they last. METANIC 
COMAL-80 is a three pass inter- 
preter for Z-80 microcomputers runn- 
ing under CP/M (including APPLE 
with SOFTCARD). It allows long 
variable names as well as LABEL 
names, and automatically provides 
program indentation for easy reading. 
Lines are checked for correct syntax 
as they are entered. Rejected lines are 
displayed with the cursor indicating 
the error. The price is 1700 D.Kr 
(about 175345 D Re. pers .US 
Dollar =$233). The manual is 175 
D.Kr.($24). For more information on 


this version of COMAL simply send 
a Self Addressed Stamped Envelope 
to the COMAL Users Group - re- 
quest METANIC COMAL info. 
We are distributing the information, 
including current prices, in coopera- 
tion with METANIC APS, to save 
our readers from the bother of 
Overseas mail. 


CBM COMAL-80 for the 
PET/CBM was released by Com- 
modore (UK) on May 6, 1981 - but it 
will not be available directly from 
Commodore. In fact their newsletter 
specifically states ‘‘Please do not 
apply (for a copy of COMAL) 
directly to us.’? Commodore has 
placed the CBM COMAL-80 inter- 
preter into the public domain, thus 
allowing distribution by User 
Groups. NOTE-we were in error 
in our original news release and 
ad by stating that Commodore 
was releasing a COMAL com- 
piler. It is a three pass inter- 
preter, not a compiler. Three pass 
interpreter means that it checks the 
syntax of each line AS IT IS 
ENTERED (pass 1), and when you 
type RUN it first scans the entire pro- 


gram to verify that all structures are 


correct -and) replaces: Oranch 
statements with an absolute address 
for the jump (pass 2). It then RUNs 
your program. No extra actions or 
commands are needed to take advan- 
tage of the three passes. 

Both Commodore (USA) and Com- 
modore (UK) have OK’ed the 
distribution of CBM COMAL by the 
COMAL USERS GROUP. 

This is what Commodore (UK) had 
to say about COMAL in a letter to us: 
“The excitement in Europe (over 
COMAL) seems to be growing by the 
hour and we look forward to America 
being able to share in the good for- 
tune of having an easy-to-use, struc- 
tured, planning language at last.” 
However, Commodore (USA) has in- 
formed us that they will not be sup- 
porting COMAL here in the USA 
(for the time being). Thus our COM- 
AL USERS GROUP will undertake 
the support here. We are already 
developing a COMAL handbook and 
a COMAL HELP disk, both which 
should be available shortly. Plus we 
will distribute copies of the manual 
provided to us by Commodore (UK) 
free along with our STARTER KIT. 
We have started a CBM COMAL 
program exchange. A copy of the 
CBM COMAL interpreter will be in- 


7 


cluded FREE on each USER DISK. 
This should provide an easy way for 
any PET/CBM user to acquire their 
own COMAL interpreter, along with 
some sample programs. 

The first release will run on both 
the CBM 8032 and CBM 4032, with 
other versions in the works. With any 
luck, someone will be able to modify 
the interpreter to work on any 
PET/CBM. Let us know if you 
would like to try the conversion. 
REMEMBER, since COMAL is a 
24K machine code program itself, it 
presently will only work on 32K com- 
puters, and currently only with a 
CBM disk. A special board is being 
developed in Denmark, and is nearly 
complete. It will plug into any PET 
or CBM, providing a greatly expand- 
ed COMAL upon power up, with no 
memory loss. This is how all com- 
puters should come, with COMAL in 
ROM as the language supplied with 
the machine. 


PET & CBM SYSTEMS 


The latest version of COMAL-80 
to surface is for the 32K PET and 
CBM computers (with DISK BASIC 
4.0). It is an extended version with 
many added features. And even more 
enhancements are being added for a 
COMAL in ROM that will simply 
plug into. ANY PET or CBM, 
reagardless of memory size or version 
of BASIC. Prototypes of the COM- 
AL ROM version are currently being 
tested in Denmark, and should be 
available soon. We will provide you 
with more information if you send us 
a Self Addressed Stamped Envelope - 
request CBM COMAL ROM 
BOARD INFO. However, the disk 
version of CBM COMAL is available 
now. Better yet it is available FREE 
from the COMAL Users Group. We 
are including it FREE on each of our 
CBM User Group disks. (Note: This 
FREE offer applies only to the CBM 
disks, not to any CP/M COMAL 
User Group Disks). Do not order 
COMAL directly from Commodore. 
They prefer to have a User Group 
distribute it. To get your FREE copy 
of CBM COMAL-80 simply order a 
User Group disk (at $12.95), or if you 
also would like a manual, handbook, 
reference card, Help Disk, subscrip- 
tion to our Newsletter, THE COM- 
AL CATALYST, and updates to 
both the Manual and Handbook, all 
packaged in a custom padded 3 ring 
binder, order our deluxe COMAL 
Starter Kit (a bargain at only $47.50). 














MAGAZINE ARTICLES 


COMAL: STRUCTURED BASIC 
by Borge Christensen 

Peoples Computers (Recreational 
Computing), JAN-FEB 1978, pgs 
36-40 
A very good article including a com- 
plete COMAL program listing and 
sample RUN, authorised by one of 


the originators of the COMAL 
language. 
AN INTERVIEW WITH DR. 


CHIP, COMPUTE, April 1981, 
page 8 

This page of rumours and new tips 
mentions COMAL as soon to be 
available for the PET. 
COMMODORE RELEASES 
NEW STRUCTURED-BASIC 
LANGUAGE, COMAL, AS 
PUBLIC DOMAIN SOFTWARE 


CPUCN (the official COM- 
MODORE (UK) newsletter), Vol 3, 
pages 4-5 


This is one of the first news releases 
reporting the availability of a COM- 
AL language for the PET/CBM. It 
stated that Commodore COMAL will 
be placed in the public domain, and 
will be available through user groups. 
PUBLIC DOMAIN COMAL TO 
STOP USE OF UNSTRUC- 
TURED BASIC IN SCHOOLS 

Practical Computing, April 1981, 
news article, pg 47 
This news release reports on the 
COMAL language available for the 
Commodore computers. 
CBM - COMAL-80_ by 
Christensen 

Commodore Info, Vol 1 No | Spr- 
ing 1981, page 3 
This article was written in German. 
We are hoping to have it translated 
for us soon. 
OF INTEREST by Dave Cortesi, 
Dr. Dobbs Journal, July 1981, pages 
38-39 
In this new products section, the 
COMAL Information Package was 
mentioned, and our address was listed 
as a resourse. 
COMAL NICHT NUR FUR AN- 
FANGER, Computer Journal, 
January 1981, page 7 
This article was written in German. 
We are hoping to have it translated 
for us soon. 
COMAL-80 A NEW 
LANGUAGE? Susan Sonderstup & 
Mogens Pelle 

Dr. Dobbs Journal, June 1981, 
pages 14-15, 46-47 
This article traces some of the basic 


Borge 


structures of METANIC COMAL- 
80, a CP/M based COMAL im- 
plementation available from Metanic 
Aps. It also gave a summary of the 
history of COMAL. The program 
listing included was not explained 
and unfortunately was written in 
Danish. 
EDUCATIONAL SUPPLE- 
MENT, Commodore Club News, 
May 1981, page 1 
It is mentioned that COMAL is now 
available: for’ FREE for the 
PET/CBM computers. 
GUEST COLUMN, Midnite Soft- 
ware Gazette, Summer 1981, page 4 
Len Lindsay briefly explains what 
COMAL is. 
STRUCTURED BASIC - FREE, 
Printout, Issue °, page 13 
An announcement of the availability 
CBM COMAL as. distributed 
through User Groups. 
FREE PET/CBM COMAL, 
COMPUTE, July 1981, page 166 
An announcement of the FREE 
COMAL information service of 
the COMAL Users Group. 
COMAL AND STRUCTURED 
LANGUAGES LEAVE 
PRIMITIVE BASICS BEHIND by 
Roy Atherton 

Practical Computing, June 1981, 
pages 98-101 
A very good article giving an over- 
view of COMAL. COMAL flow 
charts are explained. 
COMAL,Creative Computing, 
August 1981, page 175 | 
An announcement of the FREE 
COMAL information service of the 
COMAL Users Group. (Oops! Our 
address was incorrect in the an- 
nouncement.) 
USER GROUPS, Midnite Software 
Gazette, Summer 1981, page 10 
Jim Strasma mentions our COMAL 
Users Group and our User Group 
Diskettes. 
USER’S GROUP and CLUB 
DIRECTORY, Computer Shop- 
per, August 1981, page 51. The 
COMAL Users Group is listed 
under Wisconsin. 
PROGRAMMING LANGUAGES 
FOR BEGINNERS AND THE 
GLOBAL CHALLANGE by Borge 
Christensen 

Commodore Club News, 
1981, pages 9-11 
This is a very interesting article by 
the creator of the COMAL language. 
The points he makes should strike 
home to many people. We are re- 
questing permission to reprint this ar- 
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July 


ticle in our COMAL NEWSLET- 
TER. He referes to a programming 
ENVIRONMENT as just as impor- 
tant as the language. Comal was put 
together as a 3 pass interpreter to 
allow an interactive language. Below 
are two good updates from the article: 


“The impact of COMAL has been 
stronger than we had guessed that it 
would be. The students write much 
better programs in COMAL than 
they used to do in BASIC, and - even 
more important - their programs have 
become READABLE.” 


“*'..1t has become very difficult to sell 
a BASIC computer to a school in 
Denmark. Most teachers will ask the 
salesman to come back again some 
other day with a computer that can 
run COMAL.” 

COMAL Commodore Club News, 
July 1981, pages 2-3 

This editorial by Pete Gerrard in- 
cludes this beginning: ‘Comal has hit 
the world to great acclaim...’’. Yes, 
COMAL is about ready to burst onto 
the scene. He refers to the article by 
Borge Christensen in the same issue. 


BRITAINS SCHOOLS TEACH 
THE WRONG COMPUTER 
HABITS by Roy Atherton 

New Scientist, May 28, 1981, pages 
568-570 
This is a good article briefly giving a 
history of computers and their pro- 
gramming languages, pointing out 
the fact that BASIC is an old 
language that does not include the ad- 
vantages of structured programming. 
The article includes the following: 
“THE GOOD, THE BAD, AND 
THE UGLY, WAYS OF PRO- 
GRAMMING. These two programs, 
the first in BASIC and the second in 
COMAL, show the differences bet- 
ween the two languages... The BASIC 
program illustrates the confusing way 
of thinking that the language en- 
courages...the COMAL program, on 
the other hand, uses more logical 
principles and reads more or less 
from top to bottom.”’ 

“the Department of Education 
and Science should tell computer sup- 
pliers that from, say, the beginning of 
1982, schools and colleges will be 
discouraged from buying computers 
without COMAL or other satisfac- 
tory structured BASIC. Nothing less 
than this kind of action will do if we 
are to put educational computing in 
Britain on to a firm footing.” 








Books 


COMAL-80 - ADDING STRUC- 
TURE TO BASIC a REPORT by 
Max Bramer 

An interesting and well written report 
about COMAL from ENGLAND. It 
includes a careful analysis of the im- 
portance of operational environments 
to the popularity of BASIC. 
METANIC COMAL-80 SYNTAX 
DIAGRAMS & EXAMPLES by 
Metanic Aps 

This booklet provides information 
about METANIC COMAL-80 
(CP/M version) including the correct 
synax for all commands and 
statements, as well as 5 sample pro- 
gram listings. It is very well done. 
COMAL HANDBOOK by Len 
Lindsay & COMAL USERS 
GROUP 

Soon to be completed, the handbook’s 
first edition will be for CBM COM- 
AL. It will be distributed in a deluxe 
padded 3 ring binder, with a built in 
custom note pad, shipped in a custom 
made container for safe transit, as 
part of the COMAL STARTER 
Kit: 

COMMODORE COMAL 
MANUAL by Commodore Basel 
(Borge Christensen / Mogens Kjaer) 
Reformatted to our COMAL 
HANDBOOK format, included 
FREE with each CBM COMAL 
STARTER KIT. 

COMAL PROBLEMLOSNING 
OG PROGRAMMERING by 
Borge Christensen 

A textbook on COMAL programm- 
ing written in Danish. It currently is 
popular in Denmark, and is already 
partially translated into English. A 
publisher is still needed for the 
English version (possibly thru Mac- 
Millan). 


RESOURCES LIST 


* COMAL Users Group, 5501 
Groveland Ter, Madison, WI 
53716 

* Commodore Club News, Com- 
modore Business Machines (UK) 
Ltd, 818 Leigh Rd, Trading 
Estate, Slough, Berks, 
ENGLAND 

* COMPUTE!, PO Box 5406, 
Greensboro, NC 27403 

* Computer Shopper, PO Box F, 
Titusville, FL 32780 

* Creativer Computing, PO Box 
789-M, Morristown, NJ 07960 


* Dr Dobbs Journal, PO Box E, 
Menlo Park, CA 94025 

* Metanic Aps, Kongevejen 177, 
2830 Virum, DENMARK 

* Midnite Software Gazette, 635 
Maple Ct, Mt. Zion, IL 62549 

* New Scientist 

* Practical Computing, IPC Elec- 
trical Electronic Press, Quadrant 
House, The Quadrant, Sutton, 
Surrey, SM25AS, ENGLAND 

* Printout, PO Box 48, Newbury, 
RG16 OBD, Berkshire, UK 

* Recreational Computing, 1263 El 
Camino Real, Menlo Park, CA 
94025 


USER GROUPS 


COMAL Users Group, 5501 
Groveland Ter, Madison, WI 53716. 
Please help us update our lists of 
Resources, User Groups, Articles, 
and Books. Send us a copy of any arti- 
cle we do not mention that would be 
of interest to COMAL users. Let us 
know of companies supporting 
COMAL with programs. 


COMAL PROGRAM 
EXCHANGE 


Anyone using COMAL today, we 
consider a COMAL pioneer. We are 
breaking the way for COMAL. So, 
let’s make it easier on ourselves. We 
are sponsoring a COMAL Program 
Exchange - featuring USER GROUP 
DISKS (currently only available for 
CBM/PET - soon available for 
CP/M). The idea behind this is sim- 
ple. It provides a way for each COM- 
AL pioneer to share their programs, 
and it provides a way for a brand new 
Comal pioneer to get some already 
working COMAL programs to 
analyze, trying to figure out how 
things work. Simply send us a disk 
(please mail it in Floppy Armour, of 
stiff cardboard for protection) of your 
substantial COMAL programs and/or 
any nifty procedures (LISTed to 
disk). In return, we will send you a 
COMAL USER DISK, or user sub- 
mitted programs to submit, you still 
can take advantage of this exchange 
by ordering the disks you want. 
Please, no copyrighted programs ac- 
cepted for the exchange. The first 
Users Group Disk is included with 
the CBM COMAL STARTER KIT. 
It is mainly an introduction to COM- 
AL. The: ‘programs are “meant 
primarily as examples of how COM- 
AL works rather than as application 
programs. 
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AND IN CONCLUSION... 

Thank you for your interest in 
COMAL. We believe that COMAL 
is the logical replacement for BASIC. 
We believe in it so much that we 
financed the start-up of the COMAL 
USERS GROUP out of our own 
pockets (ouch!). We are paying for the 
entire cost of printing the CBM 
COMAL manual even though we in- 
clude it free with each CBM 
STARTER KIT. And the first issue 
of our COMAL CATALYST 
newsletter contains the complete of- 
ficial COMAL-80 proposal for the 
COMAL-80 NUCLEUS STAN- 
DARD (over 30 pages). We want our 
COMAL STARTER KIT to be a 
first class product, and thus are going 
to great efforts to achieve this. We 
hope that you will like it. Please send 
us any questions or comments. 

We just recently were suprised to 
read in the Midnite Software Gazette 
that two people had complained 
about our CBM COMAL interpreter 
not being FREE, but costing $13. We 
were disappointed that they chose to 
complain to a publication without 
even calling or writing to us first. We 
would gladly have clarified the point 
for them. Our USER GROUP 
DISKS will cost $13 for either 
CBM/PET version, or the CP/M ver- 
sion. The COMAL interpreter is not 
included on the CP/M disk. It is in- 
cluded on the CBM/PET version at 
no extra charge. Therefore, it is in- 
deed FREE, since the $13 is for the 
User Group Programs Disk, and even 
that cost is waived for anyone sending 
in a disk of their own COMAL pro- 
grams for our Exchange. We are 
sorry for any confusion. If there are 
any other questions - please let us 
know first, since we should have the 
answers. We are sorry for the delays 
that occurred at the beginning, due to 
the difficulty with a brand new 
programming language. 

Enclosed is a list of our current 
COMAL offerings. Since we are us- 
ing quality materials, we think our 
COMAL HANDBOOK will be a 
proud addition to your bookshelf. 
Our STARTER KIT, including both 
our HANDBOOK and the COMAL 
MANUAL (complete with FREE up- 
date service) along with our HELP 
disk and User Group disk, compares 
very favorably with PASCAL for the 
PET (advertised at $295). Our 
HANDBOOK will be in a deluxe 
padded three ring binder (which 




















Visit to a Comprehensive School 


Nick Green 





The school in question is St. Peter’s and Merrow Grange Comprehensive School, in Guildford, Surrey, 
which has 830 pupils in all. They have 15 PETs, including one 8032, one disk unit and a number of 
printers. The finance for all this, some 12,000 pounds, was raised entirely through the support of the 
pupils’ parents : other schools take note! The PETs are available for children in the fourth, fifth and sixth 


forms. 

At the time when this report was 
written, Surrey county will not spend 
any more money on Pets. They will 
also only provide software for RML 
machines, and although the Inspec- 
tors are very helpful, they will help in 
any way except money. There is also 
a lack of information or guidance on 
the micros available Surrey 
Resources Centre, for instance, has 
no micros. Terminals are no good ; a 
neighbouring school however does 
have a terminal link from Surrey 
University. Although the Depart- 
ment of Education’s money can be us- 
ed for RML software, not one school 
in the country has an RML machine! 

Indeed, the Country Inspectors 
Micro Computers Study Group 
pushes the RML 380Z, although one 
inspector did come and borrow a 
PET from the school to assess it. 

St. Peter’s and Merrow Grange 
have taken the lead in Surrey by pur- 
chasing first 4 and then 11 machines, 
going on the basis of computing being 
a proper classroom activity. They 
wanted as many children as possible 
to have hands on experience, and 
they’ve subsequently had lots of visits 
from other schools in the area. 

The school is voluntarily maintain- 
ed by the London Education Authori- 
ty : therefore there is no liason with 
the Royal Grammer School who have 
4 machines and a computer users 
group. 

In the initial stages there were ob- 
viously a number of problems to over- 
come. When they started, they were 
told that you couldn’t use a PET with 
a TV interface (said by the Chief Ad- 
visor to the Country for Resources). 
Teaching time again was a problem, 
as was lack of space. To suddenly en- 
counter that number of PETs meant a 
good deal of re-organisation! 


Keeping Pace 

The school is very keen to keep 
apace with developments, particular- 
ly in the Computer Assisted Learning 
area. CAL is used, but merely as a 
reinforcement at the moment. The 


courses currently on offer cover a 
number of “‘traditional’’ subjects, 
although at a fourth and fifth form 
level they concentrate mainly on com- 
puter awareness, with some 360 
pupils taking this course. It’s only 
when we got to the sixth form that we 
find more specialist programs beginn- 
ing to appear. 

Phe tPETs jare not iused® as .a 
separate department, the emphasis 
being that it was a computing centre 
for the whole school. The teachers 
could come and plan programs with 
the head of the computing depart- 
ment, Dr. Hancock, and it was found 
that the only opposition encountered 
so far has been from the mathematics 
and chemistry departments. Basically 
they didn’t want to foist PETs on 
everyone, but they would be in ser- 
vice if the staff so wished. 

The main areas of use in the 
scholastic arena are as _ follows:- 
economics, geography, biology, 
history (not usually encountered in 
schools), remedial and technical, and 
physics. To go through each of them 
in turn, we find the following topics 
being studied :- 

Economics - mainly multiplechoice 
questions, and survey programs 
(questions asked of local shoppers). 


Geography - map games. 


Biology - studying surface area to 
volume body. 


History - As I said, not commonly 
encountered in schools, but here we 
find a large number of programs in 
use. Again multiplechoice questions 
are being used, for revision before ex- 
ams. Especially helpful for kids who 
can’t concentrate in class, the theory 
here is that if they have to beat the 
computer they’ll concentrate better. 
They are also working on a Civil War 
Project, a simulation based on a game 
they came across and re-wrote. The 
multiplechoice questions will point 
out immediately how to answer a 
question, and are useful for explain- 
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ing how to answer these questions in 
exams. They see the mistakes im- 
mediately. On the simulation front, 
again the immediate feedback is vital, 
as well as making the kids think more 
about the situation at the time. To 
quote one of the staff ““‘We now know 
what did happen so with the PET 
kids can see what could have hap- 
pened’. 


Physics - this one is a special case, 
Owing to a teacher being away for a 
whole term. Consequently the PET is 
being used here for multichoice and 
revision programs. 

And now that they’ve developed 
their TV interface, it means that with 
any of these subjects they can take a 
single machine into the classroom and 
let the whole class see what’s going 
on. 

Most of the software they 
developed themselves, although some 
has come from MUSE and the 
Schools Council Projects. Some of 
the sixth formers are also working on 
program development. The sort of 
work areas being covered include 
timetabling, schools administration, 
careers, word processing, purchase 
requisitions and ordering, and so on. 
Using just one machine they found 
insufficient memory to cover the 
whole timetabling, but they could 
divide the school into 2 or 3 sections 
and fit the timetable in that way. 

A couple of the books they used on 
the early days were Peter Bishops 
“Computer Programming in Basic”’ 
and PCC’s ‘“‘What to do after you hit 
RETURN”, and found both ex- 
tremely useful in the development 
stages. To quote one of the teachers 
“one part of the problem is that we 
have to teach sometimes!”’ 

Still on the software front, they 
found one of the problems was a lack 
of software in their particular study 
areas : there was an awful lot aimed at 
University and college level, but not 
as much for their own use. Conse- 
quently the need to develop their 
own. As yet they haven’t formed a 
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Topic Lists - the first step for curriculum software 


Spurred on by questioning from a group of London teachers at a con- 
ference at North London Polytechnic, I went to Foyles (a large 
bookshop in central London) and browsed through the various revi- 
sion aids and study notes that are published. 

It was my view that this. material could cut many corners in draw- 
ing up topic | lists that would be useful to courseware authors. 

We would assist by publishing proposals from subject matter ex- 
perts to avoid duplication of effort, using the medium of what seems 
to have become known as the “‘yellow pages”’ 


Subsequently the syllabuses for 
various topics were examined and 
where “common core” topics were 
not a central issue I found they could 
be very helpful for certain subjects, 
e.g. geology, but it did not seem so for 
all subjects, and subject matter ex- 
perts or expert groups are urged to 
consider both sources of topics. 

Thus we would find by consulting 
the Key Facts for History 1914 - 1946 
that a number of topics are listed. 


CAL techniques 

The use of CAL techniques in 
History requires a student to be able 
to reproduce a model (albeit as an 
essay) of the material under con- 
sideration. Thus, it is seen as the 


_ History teacher’: s role to teach the 


structure and function of various 


models to account for historical 


events. There are some difficulties 
however. For example should a 
contra-factual element be introduced 
?:ina simulation of the causes of the 
First World War should a model be 
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some days later ? One might envisage 
a family ‘of models i in which initially a 


model is run with no put and pace | 
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of text, 
are prenedee required to the ‘stu- 
dent, and then the ground is gone 
over again. However, an increasing 
number of correct | responses is re- 
quired by the student. | ‘While this is 
not my personal choice, I can see it 
might make the learning of such sub- 
jects more palatable. 

BBG: metiods is straightforvard- 
own ‘simulation, after reading beaks 
on incidents in history. For example, 
the Battler of Jutland, the Peasants’ 
Revolt etcetera. Clearly | this is one of 
the more difficult areas, together with 
English Literature, to deal with 


creatively, but if the techniques of 
model building and simulation are us- 
ed and the expert is sufficiently 


knowledgable on his subject, then 


there is no question but that useful 


results can be obtained. 


Moving onto the less difficult areas 
of numeric subjects we find that the 
Key Facts identify several topics for 
Physics, including topic number 7, 
which includes momentum. Here one 
might deal with mass and weight as a 
single sub-topic, and momentum has 


a sub-topic with lots of examples of 


billiard balls and railway carriages 
etc. | 

Within ‘A’ level maths I examined 
the Key Facts Pass Book, which 
distinguished 20 super topics from its 
page of contents and from its index 
some 200 component parts. 

The super topic, Co-ordinate 
Geometry for example, contains the 
conic sections and the topic lists in- 
cludes the definition of such terms as 
directrix. Clearly, it is not worth 
devoting a whole topic to the notion 


of directrix but a topic would be writ- 


ten on the parabola. 


Thus, the topics taken from the in- 


dex of the Key Facts Pass Book can in 


many cases be collapsed into a single 


topic and just as in Physics we en-- 
countered some sub-topics we might 
on occasion wish to identify some 


more. 


Finally I had a look at English 
Language and considered that the 


contents of the two books provided | an 
excellent map for topics in a CAL 


etd ares ama 


course. Such topics as spelling, direct 
and indirect speech, literary apprecia- 


tion, essay writing, vocabulary, style 
in writing and language, comprehen- 
sion, precis, punctuation, grammar, 


sentence structure and corrections are 


all suggested. 
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Exam Syllabus 


The exam syllabus should not be 


overlooked however, and in consider- 


ing a subject like Advanced level 
Geology the syllabus is very clear ; 
each subdivision can itself become a 
topic for a computer program to be 
written. 

Thus, for example, looking at the 
University of London syllabus for 
1980/1 I would propose topics on 1) 
Theories of Continental Drift and 
Plate Tectonics and 2) the transport 
of | Detritus by Gravity, Water, Wind 
and Ice. Later i in the syllabus we have 

a topic on the Petrology of Metamor- 
phic rocks and the types of Metamor- 
phic, Thermal, Dynamic and 
Regional. 

Essentially the ‘message is that some 
effort must be expended at this level 
and it is well within the grasp of 
teachers’ software workshop to tackle 
particular curriculum areas with each 
teacher writing one or two topics and 
thus contributing toa super topic or 
breaking down his topic into sub- 
topics. 

One could envisage a planning 
period, a thinking period on each 
topic, 2 and then a . week’s actual coding 
to produce version one of a particular 
topic. 

We will produce any future 
developments in this field in future 
Euiiications. 
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Greek Alphabet Codes - PET 3022 Printer David 7. Heathcote 
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186 OPES, 4. 5:0PEN4, 4.1: 0PEN2,4.2 
116 PRINTHS, CHREC 13" GREER FLFHABET CODES PET 3822 PRINTER": PRINTHS PRINT#4 
128 PRINT#2. "999 ee Soe o8a . Sos 399 RARAAA & ARIA AAA" 
138 Ag=""-CH=CHRSC29 
14@ FORI=17TOe6: READAC I> :AS=AS+CHESCAC I 22: MEXTI > READNS 
156 PRINT#S.A | 
166 FOR I=i706:PRINT#4,.ACIO; (HEMT: PRINT#4," GIVES"CECHRS (204 CENF : PRINTS 
17a GOTO1SEe 
1G DATAL4. 17. 16.4.26.1. "ALPHA" 
1G@1i6 DATAG. 1.62,86.42.4, "BETA" 
Lee DATAG. 64, 54, 9.54.64. "GAMMA" 
1838 DATA AG. 22.41,41,608, “HELGA” 
Lede DATAG. 16,.21.21.17.2. "EPSILON" 
iGSe DATAS. 64.44.50.35.64, "ZETA" 
1G6@ DATAG.64.48,.65.62.4. "ETA" 
era DATA. 62. 73.73.62,.8." THETA" 
1886 DATAS.&.38,1.2,.6."10TR" 
1G9G DATA? i4.4, 8.38.17, "KAPPA" 
1166 DATAGS. 66.52.12, 2.1, "LAMBDA" 
111@ DATAL. 126.32.32, 128,4, "Mu" 
1128 DATAG,16,12.3,4,24. "HU" 
i138 DATAG. 55» S3.41,65. a. Hoey 
lid DATAG. 6.3 a cha 12. “QMICRON" 
1156 DATAG. <= 216,36 33, "PT" 
116 DATAG. ee 42,8, "RHO" 
1178 i Yeda 65,65, 99. RSolGMA COAPSI" 
| 1166 DATAG.9,.5,14.8.8. "SIGMA" 
1196 DATAG. S, 16. 38.17.16. "TAU" 
1266 DATA: Bea! 1.16.12. "UFSTLOWN" 
1216 ATG ey a4, 46,45. "PHI" 
1226 DATAS4. 36.24, 22,.33,65. "CHI" 
1238 DATA Ile, "9, 12608.48,64, "P51" 
1246 DATHES. SO. 04.64, 50.25, "OMEGA CCAFS]" 
1256 DATAG.6.9.2.9.6, "OMEGA" 
REAL. 
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The AY-3-8910 sound generator is a particularly versatile device 


capable of generating three simultaneous tones, each of which can be | 


separately controlled in amplitude and/or mixed with noise to pro- 


duce a wide range of sound effects. The particular merit of the GI | 
chip, compared to other sound generators, is that its operation isen- | 


tirely digitally controlled, making it suitable for use with a micro pro- 


cessor. — 

In addition to its sound generator 
functions the AY-3-8910 also features 
two 8-bit wide general purpose I/O 
ports (labelled IOA and IOB in the 
pin digram of Fig. 1). All functions 
are controlled by sixteen internal 
registers accessed by a combined data 
and address 8 bit port (DAO- -7 in Fig. 
A): The AY-3-8910 is. designed prin- 


cipally for use with GI’s PIC1600 


and 1650 series of mcro processor 
with bus control pins BC1, BC2 and 
BDIR determining whether the 
DAO-7 lines are to be interpreted as 
address or data lines. 

The combined function of the 
DAO-7 lines do not allow for easy in- 
terfacing to other microprocesors 
such as the 6502 and 6800 series. One 
method of interfacing that has been 
proposed uses a 6820 programmable 
interface adaptor (PIA) with the 8 
lines of port A connected to the 
DAO-7 pins of the sound generator 
and three of the port B lines for the 
three bus control pins. 

This means of interfacing makes 
programming the sound chip 
cumbersome. One needs to simulate 
the bus waveforms shown in Fig 2. 
Assuming that one is writing in 
BASIC, then two POKE commands 
are needed to set up the 6820 ports as 
outputs. Then one needs a POKE to 
send the address of the required inter- 
nal register to the DAO-7 pins, 
another POKE to sent LATCH AD- 
DRESS to the bus control pins, a 
third POKE to send BUS INAC- 
TIVE, followed Be a ‘fourth POKE t to 


| Figure a. 


send the data to the DAO-7 pins, a 
fifth POKE to send WRITE DATA 
to the bus control pins, and a sixth 
POKE to return the bus control pins 
to BUS INACTIVE. These last six 
POKES must be repeated for each of 
the sixteen internal registers needing 
input. | 

Why can one not make the sixteen 
registers in the sound generator part 
of the addressable memory of the 
micro processor? Then a single 
POKE to the relevant address would 
be all that is needed. 

The reason that this is not straight 
forward is that the AY-3-8910 is too 
slow to respond to the luS processor 
cycle of the 6502/6800 families. 
Following a falling edge of the 02 
clock the minimum time intervals 
needed are as in figure a. 

The solution is to deliberately spread 
the writing to the sound chip over 
two processor cycles. The circuit if 
Fig. 3 does this. The relevant signal 
waveforms are shown in Fig 4. Cir- 
cuits ICl and IG2 decode the top 
eight address line A1l5-8 and their 
outputs feed the additional address 
select pins A8 and A9 on the sound 
generator IC8. The quiescent state of 
IC5 leaves a one on its terminal Q and 
a zero on Q, the latter enabling the 
tristate output of IC3 thereby apply- 
ing the lower address lines A7-AO to 
the combined data/address pins of the 
sound generator. The first half of the 
dual monostable IC7 triggers off each 
falling edge of 02 and produces a 300 
nS pulse. The back edge of this isa 


delay until the processor address is valid 


AY-3-8910 address set up time 


AY-3-8910 address hold time 
AY-3-8910 data set up time 


AY-3-8910 data pulse width 
AY-3-8910 data hold time 
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Figure 1 


triggers the second half generating a 
delayed 550nS pulse. 


This latter 
pulse is applied to pin BDIR of the 
sound generator, which together with 
the output Q of IC5 on BC (also 
high during this period) codes ter- 


minates 150nS before the computer 


address lines A15-AO. change. Only 
the lowest four address lines A3-AO 


of the eight A7-A0. lines address a 
register in the sound generator, if the | 
other four lines A7-A4 are not zero, of 
if A8 and A9 are not 10 respectively 


then the address is invalid and the 
sound generator takes no further ac- 


tion. 
On the next falling edge of 02 (ris- 


ing edge of 02) two things happen. 


The data on the data lines D7-DO 
from the micro processor are latched 


into 1C4, and the low, now on pin D 
of IC5, is clocked through to the Q 
terminal. This latter signal enables 


the tristate output of IC4 at the same 


time as the output of IC3 is disabled. 
Data, not address, is now applied to 
the combined data/address lines of the 
sound generator 


3 [G8. Phe 
monostables continue to produce 


delayed 550nS_ pulses and when 
BDIR is high again BC1 is now low 


giving a READ DATA command to 
the sound generator. 

Circuit IC6c is an exclusive OR 
which inverts 02 whenever the 


monostable output is high. The result 


is to convert the 1 MHz 02 into a 
2MHz clock which is fed to the clock 
terminal of the sound generator. This 
more precise tones at the higher ue 
quencies than a 1MHz clock would 
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allow, see Table 1. Circuits IC6a and 
IC6b are simple inverters and could 


be replaced by a 74LSO4 if the fre- 


quency doubling function of IC6a is 
not required. 

I have constructed the circuit for 
use with a Commodore PET and for 
this purpose I do not really need IC], 
since it duplicates the Bank Select 
signals which are available on this ex- 
pansion bus. I have chosen to place 
the sound generator at memory ad- 
dresses E800 to E80 F, which is in 


dresses are possible by choosing dif- 
ferent outputs of IC1 and IC2, and 
possibly the use of the G2 chip select 
pins. If the circuit is used with the 
6800 processor, then VMA should be 


connected to one of the G2 select 


pins. 

The circuit achives the objective of 
permitting POKES direct to the 
sound generator registers and is only 
slightly more complex than the use of 
a 6820 PIA if one includes the chip 
select decoding that is also necessary 


circuit does not allow is the reading of 
the register data. To add this feature 
is not difficult, although it will re- 
quire a double, PEEK, one to strobe 


in the address, and the second to read. 


the data. There seems little purpose 
in having a read function, I have yet 
to use the two output data ports IOA 
and IOB, but plan them for two D to 
A convertors to provide, additionally, 
two directly synthesised tone chan- 
nels. 


the I/O area of the PET. Other ad- with the PIA. One function that my M.C.Stevens 
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Course (HI) and fine (LO) Tuning register values using a 2MHz clock. 
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60070 


60075 


60080 


60100 


60145 


60155 


PROGRAM : 


Figure b 


PROGF ILE 


60000 REM **PROGFILE** 

60010 PRINT" [CLR] ":CLR 

60020 PRINT" [CUD] [CUD] PUT A FRESH FORMATTED DISK IN DRIVE 1. [CUD] [CUD]" 
60030 INPUT"PROGRAM NAME:";PS 

60040 T=1025 

60050 A=PEEK(I) : IFA<>OTHENI=1+1 :GOTO60050 

60060 B=PEEK (([+3) : IFB<>96THENIL=I +1: GOTO60050 

60070 C=PEEK (I+4) : IFC<>234THENI=I +1 :GOTO6U050 

60075 D=PEEK(I+5) 

60080 IFA=0ANDB=96ANDC=2 34ANDD=1 43THENA=I : GOTO601 00 

60090 PRINT" [CUD] [RVS]ERROR! [RVO] ":STOP 

60100 D=1:TS="Ww" : I=0 

60110 $O,D,T$,P$,I$ 

60120 PRINT" [CLR] [CUD] [CUD]WRITING BASIC TEXT TO FILE. [CUD] [CUD]" 
60130 FORI=1025TOA:D=PEEK (1) :HS=""":HS=STR$ (D) 

60140 PRINTHS, :SW,HS:NEXTI 

60145 B=U:HS=STRS (B) :SW,HS:SwW,HS 

60150 HS="EOF":SW,HS:SC:HS="" 

60155 D=I+l1 

60160 IFATHENA=INT (D/16) :GOTO60180 

60170 GOTO60195 

60180 HS=MIDS ("U123456789ABCDEF" , 1+D-A*16,1)+HS 

60190 D=A:GOTO6U1L60 

60195 IFLEN (HS) <4THENHS="0"+HS:GOTO60195 

60200 PRINT" [CUD] [CUD] [RVS]DONE. [RVO] BASIC TEXT ENDS AT $";HS 
60210 POKEI,0:POKE(I+1),0:END 


Put a fresh formatted disk in 
Drive 1 to receive the file 
Type RUN60000 

Check the end of Basic text 
from the few bytes preceding 
the hex address given by PRO- 
GFILE at the end of its run, 
to ensure that this is the last 
line of BASIC program 

Type NEW and load CROSS 
REF. (If you are cross- 
referencing CROSS REF itself 
then you don’t have to reload 
it because it is still in the 
memory) 

RUN. Input the file name and 
enter V for variables or L for 
lines (GOTOs, THENSs, 
GOSUBs), and watch the 
details build up on the screen. 


search for the next end of 
line. 

If end of line and $60 are 
detected then read the next 
byte. If this is $EA (234 
decimal) then the high byte 
for line 60000 has been 
reached - (234*256)+ 





the screen. You can then 
check by the $MEM com- 
mand, if you wish, that the 
few bytes preceding this hex 
address do, in fact, contain 
the text of the last Basic line 
of the program to be cross- 
referenced 


96 = 60000 60210 restores the two bytes to the 
Make sure by checking the memory at the end of the 
next byte for $85 (decimal main program. Type LIST 
143), which is the token for and you will see that the 

the Basic reserved word listing terminates at the end 
REM, and the first word of of the program to be cross- 
line 60000 referenced. Lines 60000 and 
confirms these values and upwards are not listed and 
sets A equal to the counter have not been included in 

I. Variable A now holds the the disk file. (Actually, if 
decimal value of the location you use the $MEM com- 
containing the zero byte at mand, you can see that the 
the end of the last line of text for PROGFILE is still 
the program to be cross- resident in memory but it 
referenced. If not, then cannot be accessed from 
60090 gives an ERROR Basic because the link ad- 
message, (In many trial dress for line 60000 has 
runs, this line has never been removed by the zero 
been activated) POKEs in line 60120). 

to 60140 opens the disk file, 

converts into decimal strings The procedure for cross- 
the values of all Basic text referencing a program is quite 
locations from 1025 up to straightforward, and the steps are as 
the end of the main program follows: 

and writes them serially to 

the file 1. Load a machine code BASIC 


and 60150 writes two fur- 
ther zero bytes at the end of 


LINKER program (or Pet- 
soft’s PDAS or similar) 


the file, followed by an 2. Load PROGFILE and then 
‘““ROF”’ and closes the file link it to the program to be 

to 60200 converts the cross-referenced 

highest RAM location of the 3. LIST and check that the main 


main program text into a 
hex string and prints this on 


program and PROGFILE are 
properly linked 
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This part is fairly slow as we 

are running in Basic 
9. When complete, and the disk 
drive closes down, type Y if 
you require hard copy from 
the printer. Type N for a 
print-out on the screen 
On rare occasions the printer 
may stop listing in the middle 
of a long line. This is not a 
fault, so do not abort by press- 
ing the stop key unless the 
pause is longer than 15-20 
seconds. 


10. 


Using CROS REF to cross- 
reference itself, the following print- 
outs are obtained: (see over page 
for variables printout fig d.) 


CROSS REFERENCE - PROGRAM: CROSS REF 
470 490 
210 
190 
308 
309 
30U 
320 
326 
330 
310 
380 
440 
390 
470 
510 
180 
565 
580 
bUU 


180 
210 
240 
300 
307 
310 
320 
36U 
3/0 
380 
42U 
460 
47/0 
480 
490 
53U 
580 
600 
620 


470 


302 


340 


Figure c 


One puzzle out of several, and the 
most tricky, to be solved in conver- 
ting CROSS REF was the listing of 
DISKMON commands such as $0, 
$R, $C, as the variables O, R and C, 
and also a corruption of the next line 
number when the character $ was the 
last character on a Basic program line. 
This has been cured by the re- 





CROSS REFERENCE - PROGRAM: CROSS REF 
A 245 280 300 302 304 
460 

AS 240 245 304 307 490 
AS ( 100 200 330 340 #8350 
B 190 200 220 326 330 
BS 240° 245 480 500 520 
BS ( 100 120 480 

¢ 280 370 390 410 420 
CS . 480 520 580 620 

CC 100 140 150 160 = = 310 
i | 280 310 370 420 8 440 
C2 130 150 280 320 8370 
C9 310 410 420 440 470 
D 300. 306 309 

DIS 170 

DR$ 180. 185 240 304 307 
E 120 302 308 

J 140 150 200 210 220 
K 200 210 220 326 8340 
L 245 280 

L$ 200 206 280 

MS 320 330 340 360 #8 370 
-N 490 500 510 

P$ 170 550 

Q$ 120 

S$ 120. 280 590 610 620 
X 200 220 560 

X$ 200 206 210 220 560 
XS ( 100 210 220 560 

Y 590 600 610 

Zz 540 600 

Z$ 130 530 8 540 


vamping of lines 300 to 309. 

Very many thanks to Jim Butter- 
field and CPUCN for giving us a 
tremendously useful program, and I 
hope that with the aid of these notes 
other Computhink disk users will be 
able to enjoy the powerful facilities 
that CROSS REF provides. 

Aubrey Jones. 
British Telecomm 


Leapfrog 


The accompanying letter should give 
you a good idea of what this is all 
about, but a few words for 80 column 
users who want to see what’s happen- 
ing. Before typing the program in, 
and indeed before running it 
thereafter, type :- 

printchr$(142) 

Followed by hitting the return key. 

This puts your PET into graphics 
mode, and also gives you continuous 
graphics on the screen, rather than a 
slight gap between each line. To get 
out of this afterwards, use 14 instead 
of 142. A number of graphics 
characters are used in the listing , and 
to save you spending hours looking 
for them (since they’re not actually 
marked on the keyboard), here are the 
relevant characters :- 
In line 110 we encounter most of the 
graphics characters producing cursor 
movement. So line 110 would, in 
descriptive form, read :- 


110 F$(0)=” (3cl1)(cd) — (cu)” 


305 307 308 310 390 400 
520. 560 570 580 

360 

340 350 360 

580 590 

430 440 450 540 550 

380 ©6450) 565 

480 

490 


330 340 350 560 630 
350 360 565 570 580 
450 460 
580 590 


Figure d 


The only other one we come across 
occurs first of all in line 150, were the 
second character inside quotes is a 
cursor right. Now for the graphics 
characters. To define these, if a 
character in a line has a ‘-’ over it, 
press SHIFT as well as the relevant 
character to get the desired graphical 
result. There are seven characters us- 
ed in all, and line 130 features 5 of 
them. In descriptive form this would 
read :- #3 a 

130 _ F$(2)=‘‘J(rvs)Q(off) 
K(3cl,cd)U(rvs)Q(off)I(cu) 

These are not exactly like the 
characters in the listing, but they’re 
the closest the 8032 can get, since the 
characters listed used to be got by 
shifting the numeric keys, and of 
course this doesn’t work anymore. 
The other characters we encounter 
are in line 150 first of all, where the 
first character within quotes is a 
shifted C, and in line 260 where the 
line is achieved by pressing SHIFTed 
R (again this is as close as 8032 users 
can get, as the line should really be a 
shifted $ sign, but all we get is ... a $ 
sign!). 

Enjoy yourself! 


From P.R. Gabor, 
Tel-Aviv, Israel 


Dear Pete, 
I sincerely believe in mixing pleasure 
with business - at least when the Pet 1s 
concerned. 

So why not take a simple game pro- 
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gram, and fiddle around with it a bit to 
emphasize the various possibilities of 
the PET? I think the enclosed listing 
might interest those readers of the 
“Newsletter”? who are comparatively 
new to the Commodore Family and 
would like to learn more about Basic 
Programming. 

This is a simple checker-game, called 
Leapfrog. The object of the game 1s to 
exchange the places of the frogs, as ex- 
plained in lines 300 to 440. 

Lines 460 waits for an input to start 
the game. The first problem was to 
make a graphical image of the frogs, I 
think the shifted “QO” characters are 
very suitable for this. The actual game- 
board 1s the array A(X), a value of “1” 
represents a green frog, a “2” represents 
a black frog and a zero - an empty 
space. Now the main problem was to 
write an intelligent input sequence, 
where nothing but the appropriate 
number-keys should be pressed. This 
meant that I had to use “‘get’’, and not 
“tnput’’, and that the “PET” had to be 
able to differentiate, whether a “1” 
meant “‘one”’ or whether it was the first 
digit of a two-digit number. A “O” 
could not be accepted as the first digit. 
The ‘Delete’ key should annul the en- 
try. 

The input routine starts at line 1340, 
the actual “get” routine at line 1820. 
Note the use of the flag DEL. The 
reason for it 1s, that we cannot jump 
directly from the subroutine to the 
“delete”? routine. First we have to 
return to the calling routine (ter- 
minating the subroutine sequence) - and 
the calling routine must be told that it 
had to start the input routine all over 
again! 

The second digit input might require 
some additional explanation. Line 1850 
checks, tf the first digit 1s a “1”. If not, 
then there 1s no second digit. Line 1860 
multiplies contents of elements 8-11 of 
Array A(x). Now one of these elements 
must be a zero (pointing to an empty 
space) if the leap 1s to or from a 2-digit. 
number. Therefore, if the result of this 
multiplication 1s not zero, there is no se- 
cond digit. 

By the way, line 1900 could reject a 
second digit greater than one (change 
“9” to “17) - but I could not resist the 
temptation to have a frog “scream” 
and fall off the CRT... (The animated 
sequence 1s between lines 1600 and 
1760). Incidentally, the regular leaps 
are animated in lines 710-810, lines 
730, 750, 770, 800 are the time-delays 
between the phase of the leap, these can 
of course be adjsted as required. By the 


way, A = sin (3) in lines 1650 and 1660 


also acts as a time delay. 


I believe, the rest is properly explained 


by the remarks in the listing. 


So type in the program, and have fun. 
Incidentally - it can be done in 35 


moves. 
Kindest regards. 


Yours sincerely, 
P.R. Gabor 
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430 FORK=1T0S:PRINTFS$<2>3 :NEXT: PRINT" 


LA RETA Rae AREER EE HE HD 
20 REM # # 
34 REM # . EAP PROS # 
46 REM # # 
38 REM # BY FP. GABOR # 
6a REM # 28/6331 # 
7G REM # ¥ 
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REM 
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FORK=1 TOS :FRINTF#¢235 >NEXT > PRINT" Sel" 
TO EXCHANGE" 
PRINT" THE GREEN AND THE BLACK FROGS BY MOVING" 
PRINT"ONE FROG AT A TIME BY ONE SPACE <¢IF THE" 
PRIMT"MEXT SPACE IS FREE? OR HAVING A FROG 


440 FORK=1T0S:PRINTFS¢1); :NEXT PRINT" I” 
450 PRINT"S SPRESS ANY KEY TO START THE GAME" 


466 GET AF: IF A¢="" THEN 450 
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REM # START GAME * 
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FOR K=1T08: 
AK O=1:°ACK+62=2 
HEAT ACESS 
Cee! 
PRIHTTI#: PRINT > FRIWT 
FORK=i1TO11: 
PRIMTFEC ACK 235 


NEXT >: PRINT" ata" 

FRINT" 

PRINT“Z31 28 ¢€ 6&6 6 Ff & 
PRINTERS" Sleletete)" 

PRINT"ENTER YOUR MOVE! a 
GOSUEL S48: FR=8: 
PRIHT"' a" > Th=1588: 

IF ACSs=8 THEN 1478: 

IF ABSCS-Es>2 THEN 1568: 

IF ACE) THEN 1528: 
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PRINTERS: TABC BHC S—1 990: 
FOR K=1 TO S: 
FOR L=1 TO 25: WEXT 
PRINTAHEC ED: 
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FOR L=1 TO S&:NERT 
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COMMODORE COMPUTER 


POWER produces a dramatic improvement in the ease of program- 
ming BASIC on Commodore computers. POWER is a programmer's 
utility package (in a 4K ROM) that contains a series of new commands 
and utilities which are added to the Screen Editor and the BASIC Inter- 
preter. Designed for the CBM BASIC user, POWER contains special 
editing, programming, and software debugging tools not found in any 
other microcomputer BASIC. POWER is easy to use and is sold com- 
plete with a full operator's manual written by Jim Butterfield. 


POWER’s special keyboard ‘instant action’ features and additional 
commands make up for, and go beyond the limitations of CBM 
BASIC. The added features include auto line numbering, complete 
tracing functions, single stepping through programs, line renumber- 
ing, and definition of keys as BASIC keywords. POWER’s ‘WHY’ 
command enhances debugging by listing the appropriate program line 
and highlighting where BASIC stopped executing. The cursor move- 
ment keys are enhanced by the addition of auto-repeat, and text 
search and replace functions are added to help ease program modifica- 
tion. POWER can even execute a sequential tape or disk file as though 








TO YOUR ga? 





it were typed on the keyboard, allowing the user to merge two BASIC 
programs together. Cursor UP and Cursor DOWN produce previous 
and next lines of source code. COMPLETE BASIC PROGRAM 
listings in memory can be displayed on the screen and scrolled in 
either direction. You can even add your own commands to BASIC. 
Like our very successful Word Processing Programs (the “WordPro” 
series), POWER even includes convenient ‘stick-on” keycap labels 
which define new functions on the keyboard. POWER is a must for 
every dedicated CBM user. 


Call us today, for the name of the Professional Software dealer nearest 
you. 


Professional Software, Ltd. 

153 High Street 

Potters Bar 

Hertfordshire EN6 5BB 

Tel: (STD 0707) 42184 / (STD London 77) 


Power™ is a registered trademark of Professional Software Inc. 








The BASIC Compiler 


John Stout 





In this issue the overall structure of 
the compiler is given, together with 
examples of the assembly language 
that will be generated by the compiler 
for some of the statement types en- 
countered in BASIC programs. 
Enough information should be 
presented here, in a ‘bare bones’ 
form, for anyone with sufficient time 
and energy to work ahead of the series 
of articles. Should anyone do so I 
would be most interested to receive 
any thoughts about the compiler and 
its construction and to include them 
in future issues. 

The compiler will consist of an in- 
itialisation subroutine, which will be 
added to as the series progresses, a file 
handling section which asks the user 
for the filenames to be used by the 
compiler and opens them, the two 
main program loops, the first of 
which compiles a line of BASIC and 
the second, nested inside the first, 
which compiles BASIC statements 
within the line. Finally there will be 
one subroutine for each possible state- 
ment type, e.g. POKE, IF, PRINT. 


BASIC 2 and BASIC 4 
differences. 


In writing the compiler there are a 
number of areas where the differences 
between BASIC 2 and BASIC 4 could 
cause some difficulty. For the com- 
piler’s side (as opposed to the 
assembler’s) these are minor. Testing 
for the status of the disk is easier in 
BASIC 4 (using DS and DS$) so we 
shall use a subroutine which returns 
the two variables DS and DS$ as a 
disk error checker. For BASIC 4 this 
subroutine will consist of a 
RETURN statement only, while the 
BASIC 2 version will input from the 
error channel the necessary variables 
and convert them to the DS and DS$ 
form. BASIC 4 of course has a 
number of extra statement types con- 
cerned with handling the disk more 
easily, e.g. APPEND and RECORD, 
but the compiler will generate the 
necessary assembly language to han- 
dle these statement types in the way 
publicised by Jim Butterfield (Com- 
pute Issue 9, February 1981) and 
others. This involves altering the 
filename for such things as APPEND 
(add ‘‘,A”’ to the filename when open- 
ing) and printing strange combina- 


tions of secondary addresses and 
record numbers to the error channel 
for RECORD. Since both sets of 
ROMs can handle this sort of low 
level programming (done by BASIC 4 
anyway) there should be no problem 
is using exactly the same procedure to 
handle APPEND etc on both ROM 
sets. 

Since we will use the assembler to 
handle any absolute or page zero ad- 
dresses the compiler need only use 
symbols for referencing such ad- 
dresses, e.g. INTVEC for the inter- 
rupt vector, CLSFLS for the $F FCF 
routine to close all files and so on. 
Thus the code generated by the com- 
piler will be the same for BASIC 2 


and BASIC 4 and we need only. 


change the equates which set the sym- 
bols to be some value, e.g. INT- 
VEC=$90, CLSFLS=$FFCF, in the 
file BASICLIB.SRC which will be in- 
cluded in the assembly language out- 
put file using the .LIB assembler 
directive. In fact what we shall pro- 
bably do is to have two versions of 
BASICLIB.SRC, called 
BASIC2LIB.SRC and BASIC4LIB.- 
SRC and ask the user what machine 
the compiled program is to run on, 
including only the file that is ap- 
propriate for the ROM set to be used. 


Initialisation. 


Where possible each subroutine 
handling a statement type will do its 
own initialisation but there are some 
global variables that will need to be 
set up before any compiling can be 
done. For example we will use 
variables IN and OUT to denote the 
channel numbers used for inputting 
from the BASIC program file and 
outputting to the assembly language 
file. Counters used in generating 
labels for such things as IF statements 
will need to be set to zero, the er- 
ror/command channel will need to be 
opened to the disk and so on. A 128 
element integer array will be used to 
hold zeroes in element I if the token 
value (128+1) is noz a valid first token 
in a statement and holding a value J if 
it is. This value J will be a number 
which is to be used as an index in a 
series of ON...GOTO and 
ON...GOSUB statements which will 
direct control within the compiler to 
the routine appropriate for the state- 
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ment type being compiled. In fact by 
using the absolute value of the value J 
we can use the fact of an element in 
this array (which we shall call VT% 
() ) being negative to show that a state- 
ment type with token (128+]) has 
been met in the program. When com- 
pilation has finished the compiler can 
scan through IT'V% () and perhaps on- 
ly include routines from a set of 
library routines on disk which are 
needed in this particular program. 
Thus instead of loading a fixed size 
block of routines, some of which may 
never be called because there are no 
instructions in the compiled program 
which use them, routines in the com- 
piled vesion for this compiler will be 
unused only if the program flow 
avoids instructions which use them. 

Since we propose to list each com- 
piled line to the assembly language 
file as a comment (probably broken 
into statement comments), and since 
the BASIC language input will be in 
token form we will need a string array 
T$() say, which will contain in ele- 
ment (I-128) the string representation 
on the token whose value is I, e.g. 
T$(0)=“SEND” since the token for 
END is 128. 

This is not of course a complete list 
of the initialisation needed, but rather 
than attempt to forecast the com- 
piler’s future requirements we will 
leave the initialisation in a subroutine 
and add to it as the compiler pro- 
gresses. 


File handling 


The file handling section of the 
compiler will use the concept of a 
filename extension to operate proper- 
ly. A file extension is a short suffix, 
added to a filename proper, which 
conveys some information about what 
sort of information the file contains. 
We adopt the convention that a 
filename ending with .BAS contains a 
BASIC SAVEd file, while one en- 
ding in .SRC contains ASCII 
SouRCe, suitable for input to the 
assembler with each line terminated 
by a carriage return character. Note 
that the extensions in these two cases 
are BAS and SRC, 1.e. the . is simply 
used to separate the filename from its 
extension. 

When the user is asked for the 
name of the BASIC file to be compil- 

















ed the compiler will search for a file 
of the name given first of all. If this 
search fails the compiler will then 
look for a file whose name has the 
BAS extension and if this search fails 
report an error. Of course if the user 
enters a filename already with the 
BAS extension only one search will 
be performed. 

When the user is asked for the 
assembly language file name things 
are slightly different. Since the com- 
piler creates this file it will always use 
the SRC extension and if a file of that 
name already exists the user will be 
asked if it is to be deleted. If it is not 
then the user is asked for an alter- 
native file name otherwise it will be 
deleted and a new file with the same 
name created. 


Line handling 


The line handling loop has at its 
start a subroutine call to read the next 
line of BASIC in, ending the com- 
piler run if the high byte of the line 
pointer at the start of the line is zero, 
and producing two versions of the 
line. The first contains the token 
form in a string LN$ while the se- 
cond, in LI$, contains the human 
readable form for listing to the SRC 
file as a comment and for printing to 
the screen in the case of an error. A 
variable LN will be set to 1 by this 
routine and will always point to the 
next byte of the source line which is 
to be compiled. After reading the first 
byte of the source line the routine will 
return to the main program. 

The next task of the line handling 
loop is to generate any necessary 
labels. These will take the form of 
Lnnnn and Innnn as explained in the 
previous article. Labels in the form 
Lnnnn will act as the targets for 
GOTO and GOSUBs while Innnn 
labels will be used if there was an IF 
statement on the previous line which 
needs a target to jump to if the IF 
condition fails. Also generated here 
will be code to call the subroutine 
LINNUM, again discussed in the 
first article. Control then passes to 
the statement handling loop. 


Statement handling 


At the start of each statement 
(which may also be the start of a line) 
we must check to see if the previous 
statement was an ON...GOTO/ 
GOSUB. If it was then we need to 
generate a label of the form Onnnn 
which is used as a target if the index 
in the ON...GOTO/GOSUB falls 





outside the range of possibilities 
given or if the ON...GOSUB form 
was used. In both these cases we need 
to be able to reach the start of the next 
statement (as opposed to line for IF 
statements). 

The first byte of the statement is 
then examined. If it lies in the range 
65..90 (ASC(“A’’)..ASC(“‘Z”’)) then 
we must have an assignment state- 
ment, e.g. A=O, Z(1,1)=25.6. We 
then pass control to the relevant 
routine which will check to see if the 
variables have been defined (see the 
previous article for details of how 
variables will be defined) and then 
generate the necessary assembly 
language to cause evaluation of the 
assignment expression (as remarked 
in the previous article the expression 
evaluator will be the heart of the com- 
piler since it will have to deal with 
defining variables, array indexing, 
type matching and so on). Should the 
first byte of the statement fall in 
either of the ranges 0..64 or 91..127 a 
syntax error is reported, with two 
possibie exceptions. The first is 
where more than one colon is used as 
separator between two statements, 
e.g. PRINT A::GOTO 10. This is 
equivalent to allowing one of the 
possible statement types to be the null 
statement. The second possiblity is 
where someone uses an IF... THEN 
statement followed by a number, e.g. 
IF A=O THEN 100. In the first case 
we simply read the next byte and start 
the statement loop again while in the 
second we back the pointer LN by 
one and goto the routine for handling 
a GOTO statement. 

The only other possibilities left for 
a byte are in the range 128..255 so 
that we check the VT% () array for 
the token we have encountered being 
a valid first token (if not we print the 
line in error with an error message), 
set the value of the VI% () element 
being examined to be negative and 
then using a number of 
ON...GOTO/GOSUB statements 
end up by executing the correct 
routine for the statement type met. 
Each of the statement type 
subroutines will, when returning to 
the main program, have read the ter- 
minating byte of the statement they 
have just compiled (usually a colon or 
a null byte). 


Errors 


For the moment we adopt a fairly 
simple error handling technique. 
When an error is met the line in error 
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is printed to the screen (or printer if 
the user prefers and has a printer) and 
the location of the error pointed out 
as far as possible. An error message is 
then printed and the scan of the line 
proceeds until the offending state- 
ment or line has been passed over. 
Compilation then proceeds with the 
next line or statement. 


Samples of the assembly 
language generated by the 
compiler 

To finish off this discussion of the 
compiler we will show the type of 
assembly language statements pro- 
duced by the compiler for certain 
types of BASIC statements. 

A REM < statement is perhaps the 
simplest of all the statements (save 
the null statement introduced before) 
since it generates no assembly 
language at all. All the compiler does 
is to ignore the rest of the current line 
and advance straight to the next. 

LET is almost as simple since we 
ignore the LET and read in the next 
byte (note that the read next byte 
routine will be like the BASIC inter- 
preter’s CHRGET routine in that it 
will ignore spaces) and returns to the 
head of the statement handling loop. 
This does mean that a statement such 
as LET GOTO 100 will be compiled 
successfully but if anyone wishes this 
can be avoided fairly simply. 

GOTO is another simple statement 
to compile since all the compiler need 
do is to convert the target line 
number to hexadecimal, prefix the 
hexadecimal representation by L and 
output the instruction JMP Lnnnn to 
the assembly language file. Undefin- 
ed line numbers will be caught by the 
assembler as undefined symbols but if 
need be we can let the compiler do 
some elementary housekeeping and 
list undefined line numbers at the end 
of compilation. 

GOSUB is much like GOTO ex- 
cept that we produce a JSR.Lnnnn 
rather than a JMP Lnnnn. The only 
complication might be that we should 
check for stack underflow before we 
perform the JSR, otherwise we might 
well crash the compiled program. 
Possibly we could build a stack check 
into a frequently executed routine in 
the BASIC*LIB.SRC file, e.g. LIN- 
NUM, and halt execution if only a 
few bytes are left in the stack. 

Similarly RETURN should be easy 
to compile since it could compile to 
just an RTS instruction. However 
when BASIC executes a RETURN it 


checks for any active FOR...NEXT 
loops that have been defined since the 
corresponding GOSUB and removes 
them from the stack. Since we will be 
using a different arrangement for the 
FOR...NEXT loops this will not be 
strictly necessary, but it will be as 
well to include such a check for com- 
pleteness and compatibility. Each 
record of a FOR...NEXT loop will 
then need to contain the value of the 
stack pointer when the loop came into 
existence, but the subject of 
FOR...NEXT loops is best left for a 
future issue. 


ON...GOTO/GOSUB statements 
are the most complicated statements 
that we consider here. The generated 
code must evaluate the value of the 
index (i.e. the ...), check that the 
value, when converted from floating 
to fixed point, of the index does not 
exceed the number of possible line 
alternatives and is not less than l, 
then load the address of the start of 
the next statement less 1 onto the 
stack for an ON...GOSUB, use the 
value of the index to index a table of 
addresses of the relevant line 
numbers and use the PHA/PHA/RTS 
technique to transfer control to the 
correct line number. The code 
generated will be something like 
figure a. 


IF statements are the final statement 
type we consider here. They are fairly 
simple but raise a point which cannot 
be answered until the compiler has 
been used on a number of programs. 
The general idea is that we generate 
assembly language which leaves a 
Boolean value (true of false) in the 
primary floating point accumulator, 
using the standard PET convention- 
that 0 represents false and non-zero 
true. We then test the value of the ex- 
ponent of the result and if it is zero 
we want to jump or branch to the 
next line, i.e. to the label Innnn. 
However, the question that needs to 
be settled is whether we can branch, 
in which case we assume that the 
assembly language generated by the 
compiler for the rest of the line won’t 
occupy more than 127 bytes, or 
whether we need to assume the worst 
and always jump to the next line. The 
two cases are shown in figure b. 


The second method is guranteed 
never to fail but needs an extra 3 
bytes and is slower. Perhaps the 
simplest solution is to adopt the first 


method and if it consistently fails to 
change the compiler over to using the 
second method. If only occasionally 
does the first fail then it might be 
worth while leaving the first method 
alone for the cases where it works and 
manually altering the few that fail. 
Since the compiler is generating 
assembly language that can be read by 
the assembly language development 
system, including the editor, this is a 
simple thing to do, and could be the 
way to produce any optimisation 
without expanding the size of the 
compiler. 


Figure a. 


;ON VT-10 GOSUB 10,20,30,40,50 


Summary 

We have looked at the overall struc- 
ture of the compiler and established a 
number of general points about its 
operation. Some questions still re- 
main to be answered, e.g. DIM op- 
tions, FOR...NEXT structure and so 
on, but most of these are sufficiently 
complex to warrant a complete arti- 
cle. 

In the next issue the first section of 
actual programming will be given, 
which should be able to compile most 
of the statement types looked at in 
some detail in this article. 


;CODE TO PRODUCE THE VALUE OF VT-10 IN FIXED POINT IN LOCATIONS 


;FIXPTL, FIXPTH. 
LDA FIXPTH 
BNE Onnnn 


;IF THE HIGH BYTE IS NON-ZERO THEN THE ON...GOTO/GOSUB MUST FAIL 


LDX FIXPTL 

DEX 
30..(aa~1). 

CPX #$aa 

BCS Onnnn 


; INSTEAD OF RANGE i..aa (NUMBER OF ALTERNATIVES) USE RANGE 


;CARRY SET IMPLIES THAT X GREATER THAN OR EQUAL TO aa 


LDA #>Onnnn-1 
PHA 

LDA #<Onnnn-1 
PHA 


;THE STACK NOW CONTAINS THE CORRECT ADDRESS FOR AN RTS TO 


;RETURN TO Onnnn, THE ADDRESS OF THE NEXT STATEMENT. THESE 
;4 INSTRUCTIONS WOULD BE OMMITTED IF ON...GOTO WAS USED 
;RATHER THAN ON...GOSUB. 


LDA THnnnn,xX 
PHA 
LDA TLnnnn,xX 
PHA 


RTS ;THIS TRANSFERS CONTROL TO THE CORRECT LINE NUMBER. nnnn IS 
;THE HEXADECIMAL REPRESENTATION OF A COUNTER INCREMENTED BY 
;1 FOR EVERY ON...GOTO/GOSUB STATEMENT COMPILED. 


>LOOOA 
>LO0i4 
>LOOLE 
>L0028 
>L0032 
<LOOOA 
<LOO14 
<LOO1E 
<L0028 
<L0032 


Figure b. 


LDA FPIEXP 
BEQ Innnn 





;CODE TO EVALUATE THE BOOLEAN VALUE 


;ASSUME WE CAN BRANCH AROUND THE REST OF THE LINE WHICH 
;MUST THEN TAKE LESS THAN 128 BYTES. 


;REST OF LINE CODE 


LDA FPiIEXP 
BNE +$03 
JMP Innnn 


;REST OF LINE CODE 
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;CODE TO EVALUATE BOOLEAN VALUE 





Machine Code Programming 


PASSING VALUES 
BETWEEN BASIC AND M/C 
ROUTINES. 


BASIC is a good language in which 
to develop programs but it runs com- 
partively slowly. Machine code pro- 
grams run quickly but they take far 
more time than BASIC to develop. 
One approach to resolving this dilem- 
ma is to write a hybrid program, most 
of which is written in BASIC but 
which uses machine code subroutines 
to speed up potential bottle necks. 

The question then arises, “How 
does one pass values from BASIC 
variables to the machine code routine, 
and machine code values back to 


BASIC?”’. BASIC has a specially 
designed function called USR. 
However, USR passes a_ single 


numeric value in floating point for- 
mat. Suppose you want to pass more 
than one item, or are concerned with 
strings or small integer values? 

I use two alternative methods to 
USR. One needs POKE and 
PEEK (), the other uses a BASIC 
string as a machine code buffer area. 


POKE and PEEK () 


With POKE and PEEK (), bytes 
outside the normal BASIC area are 
used. The values to be passed are 
placed in them by the BASIC pro- 
gram, using POKE (location), (value) 
and the machine code routine called 
using SYS. The machine code routine 
the proceses the value as it would any 
other bytes of memory. If the 
machine code routine has information 
to pass back to BASIC, it places them 
in the dedicated locations, and 
returns to BASIC using ‘RTS’. 
BASIC then accesses the values and 
puts them into variables, using 
PEEK (location). 

Quite a good area to use is our old 
friend the second cassette buffer. I 
tend to use it for passed values even 
when the machine code routine is 
located at the top of user memory. It’s 
best to keep to the bottom end of the 
buffer, 826 onwards, since one or two 
Operating system routines in later 
PETs make temporary use of the up- 
per bytes. Here’s an example of how 
the method works. Suppose you have 
two integer values in the range 0 to 
255 in variables A and B, and the re- 


quirement is to order them so that the 
higher of the two is in variable A and 
the lower in variable B. The Basic 
code is something like fig a 

If you decided that the swop should 
be in machine code, then the ap- 
proach would be along the lines of 
fig b 

Where SYS 28000 calls a machine 
code routine derived from the source 
code, fig c 


STRING BUFFER 


Using a BASIC as a buffer is more 
involved, put allows you to pass up to 
255 characters very conveniently. To 
understand the method you need to 
recall how MICROSOFT BASIC 
stores string variables. 

Strings are held in two portions. 
One part, the string parameters, are 
included in the variables table which 
immediately follows the BASIC text. 
The parameters define the variable 
name and type, and for a string, 
where in high memory the actual 
characters are stored and how many 
of them there are. The other part is of 


Figure a 


IF BCA THEN C=A 





Figure b. 


PORE FORE 827.58 : 


B.A 


P=PEEK C273 


Figure c. 
CONF LIA &2e 

CMP Sear 

EMI i Scie 

FT 

Lim & 

2TH €2 


—_, T a) re 
— * - 
2! 1 1 st : 


Figure d. 
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course the actual string of characters 
stored in high memory. 

The string parameter format is as in 

fig d. 
BASIC sets up variable parameters in 
the table in the order that the 
variables are declared or met in the 
program. So if you set up A$ as the 
first variable in the program, the 
parameters for A$ will be the first 
ones in the variable table. BASIC 
maintains a pointer to the start of this 
table, and it’s quite straight forward 
to use this pointer to find the 
parameters of the first string. 

The machine code routine can ex- 
aminine the string pointer to find 
where in memory the characters are, 
and at the string length to 
demonstrate how many characters it’s 
dealing with. 

As an example, suppose you 
wanted to change all upper case- 
characters in A$ to lower case, to 
allow two words to be alphabetically 
compared. The BASIC code is 
something like fig e. 

To use a machine code routine, a str- 
ing variable, say A$, must be declared 
as the first variable in the program 
and later filled with the character str- 
ing to be converted, prior to calling 


iComeare wale in S26 


swith the value in S2F 


-_ 
i 


Loer! is hisher 


(Othermise peturn toa BREIC 


4.5 a2 tranzter area 








the machine code routine with SYS. 
Typical coding for the machine 
code routine is as in fig f 


MACHINE CODE TOA 
STRING 


The same string parameters can 
also help with passing a string of 
characters resulting from a machine 
code program back into a BASIC str- 
ing. A typical application would be a 
machine code routine which is receiv- 
ing information via a _ telephone 
modem, and needs to feed the 
characters back to the main BASIC 
program. 

Once again you need to declare a 
string variable as the first variable in 
the table. Suppose the characters are 
being collected into the second 
cassette buffer. Once the machine 
code routine has changed the pointer 
portion of the string parameter to 
point at 826, and the length portion 
to reflect how many characters are to 
be passed, the transfer is complete! 

For example, suppose the machine 
code routine has received the message 
“TRANSMISSION COM- 
PLETED.” via the modem, and 
stored the ASCII characters in loca- 
tion 825. 

See figure g over page 


Mike Niklaus 
Training Manager 
Commodore U.K 


Drop Out Proof 
Input 


You may be interested in the 
enclosed program which is a drop-out 
proof input routine for ‘NEW-ROM’ 
PETs (BASIC 2). Written in machine 
code it is completely relocatable and 
is called by the USR function, eg to 
input a value to variable V the Basic 
program would include the line:- 100 
V=USR 10). The variable may also 
be of Array type. eg A(I)= USR(0) is 
acceptable. 

Only the numerical keys plus .+-g 
and E are accepted all others in- 
cluding the stop key are ignored, 
apart of course from carriage return 
and delete. A shifted carriage return 
will delete the whole number current- 
ly being entered. 

As I have no printer I am unable to 
provide a dissassembled listing of the 
machine code but the Basic operation 


Figure e. 


== HE SE 


FOR £= 1 TO LEN“A#S 





Figure f. 
POITHT 


SEIU Li &e2 


LIA © POLHT 3." 


; feeb oe eet rrher 


CPOIHT 2.17 
(| STRPTE+1 


LEH 


RoOTRPTR 3 oi 
#eaHliiliiil 


COWVRT LOA 
AHL 


SIR ASTRPTRI «7 3 


DE’ 
CF EFF 
BHE CONE T 


RTS 


is as follows. The character count 
pointer in $SI is initialised tu zero 
and the cursor enabled. A character is 
obtained by the GET routing $FFE4 
and checked for type. If acceptable it 
is added to the buffer at $0200 - and 
also printed to the screen using 
$FFD2. 

On receipt of a c.return a 00 is add- 
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Fuk it beck 
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ed to the buffer, the contents of 
pointer $77,$78 are saved and the 
cursor is turned off. A jump is made 
to $CB3C in the BASIC input 
routine which converts the string in 
$0200 - to floating point and leaves it 
in the variable in the calling USR 
function. 

Below are 2 more short machine 











Figure g. 
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C bow kegche 3 


FOIHT = 42 
BUFFER = S26 
CHRCHT = S25 
SETUP LI #2 
character count to lensth 
STA CPOIHT >. 47 
Tht 
LIA #< BUFFER 
STA CPOINT 2.’ skit fer 
TH" 
LIA #2BUFFER thigh bute 


StA CPOLAT 207 


code programs I have found useful 
and which your readers may find 
useful also. 

They are both for ‘NEW-ROM’ 
PETs (BASIC 2.0). The first pro- 
grams will print an expression 
(numerical or string) at any point on 
the screen without the need for ex- 
pressions such as PRINT LEFT$ 
(DN$,10)TAB(20)M$. The syntax is 
SYSP,R,C,X where P is the short ad- 
dress of the code (eg 826) R is the row 
in which to print (R=0 -24) C is the 
column where the first character is 
printed X is the expression to be 
printed. It can be of any type e.g. 
SIN(N), 27,n‘‘123”, A$, Al, A$(N) 
are all valid. The commas between P 
R C and X are essential if the expres- 
sion X is followed by a semi colon the 
cursor will be left after the expres- 
sion, otherwise it will be at the start 
of the next line. | 

The program is fully relocatable 
and is given if figure 1 in the form of 
a hex dump. It occupies 25 bytes. 
Also by including the routine in For- 
Next loops it is easy to draw borders 
or to fill in areas of the screen with 
any graphics character. (fig 2) 
will print a block of reversed spaces in 
the middle of the screen. 

The second program will search 
through a tape and print out for each 
program found the following infor- 
mation 
1) Program name (if any) 

2) Start address of program 


3) End address of program 

It is relocatable and is called simply 
by SYS S where S is the start address 
of the program (probably 826). If no 
previous tape has been loaded or sav- 





Figure 1. 
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Figure 2. 


1G P=826 : PRINT"4CLRI" 
1@G@ FOR C = 15 Ta 25 
11@ FOR R = 14 To 15 
126 SYS P-R,-C."4RYS 1 +0FF 1" 
13 MEST R-C 


Figure 3. 


2 Cy G 


mon pb bw 
Dh om Py D 


1% 
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then (STOP) to set up the cassette 
load routines for TAPE // 1 (other- 
wise a ‘PRESS PLAY ON TAPE //0? 
message is printed). The code is as 
figure 3. 


ed then it is necessary to press LOAD 


BASIC PROGRAM TO POKE DATA 


100 
110 
120 
130 
140 
150 


REM INPUT ROUTINE LOADER 

INPUT" [CLR] START ADDR (DECIMAL)";SA:A=SA 
READ D:IF D=-1l THEN 140 

POKE A,D:A=At+1:GOTO 120 

PRINT "PROGRAM LOADED" 

HI= INT(SA/256) 

POKE 2,HI 

POKE 1, SA-256*HI 

FOR I=l1 TO 1000:NEXT 

REM INPUT MACHINE DEMONSTRATION 
?"{CLRI* 

PRINT "ENTER VALUE"; : V=USR(0) 
PRINT "VALUE WAS" V 

PRINT: PRINT: GOTO 220 


DATA FOR INPUT ROUTINE 


1000 
1010 
1020 
1030 
1040 


1050 


DATA 32,128,210,162,0,134, 161,134, 
11,162,0,134,167 ; 32,228,255, 201,586,176. 
DATA “24,56,233,43,56,233,213,176,16,201, 
47, 240 , 233, 32,210, 255,166,161. 

DATA157 , 0,2, 230,161, 208, 221,166,161, 
240,211,201,69, 240,236,201, 20, 208. 
DATA 5,198,161,32,210,255,201,141, 

240, 29, 201,13, 208,196,169 ,32,133,170. 
DATA 32,210, 255,32,;213, 201,165,119, 
164, 1.20 »i dS, Peehder 12769 pb ¢133 7167 1 
DATA 76,60, 203,169,20,32,210,255, 
198,161,208, 249,240,154,-l. 





26 





Peripheral Spot 





DISK MEMORY DISPLAY - OOS 2.8 


Hi PRINT" TSISkK MEMORY OISPLAY Jt BUTTERFIELD” 
ra ee a a ok ee 16 
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PRINT" iiRiiY ty 
IHFPUTES 

PRIHT" Ts sIFLEN< 2$9<>4THENGOUTO226 

FOR IJ=17T04 sY=ASCOMIOS* £6,099 

IFS SSTHENT="-45 

IF YS Seé4THENY=""—s5 

IF YS edRyS LeEGoToSee 

Ye Toa NEXT ISK=G PRINT" Sey" - 
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COPY/ALL will copy relative files correctly. It replaces COPY.ALL which contains a bug; it does not replace COPY 
ALL which is much faster if relative files are not involved. 

The Basic listing mixes upper and lower case for readability; type it in without shifting. There should be lots of space 
for the following Machine Language program. 


prirre' Cc led DISK, COPY. ALL JIM BUTTERFIELD" 
dim L2«2329,LikC2329 -NSC2s2) ,. THC 232) , TSL4) 
data HHH .SEQ.PRG,USR,REL 

for J=8tod sreead TEI > mriex tt 

imeut "FROM UNIT SCS left" sF 

mgmsukSiaet 
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imeut"TO UNIT S303 leftist 
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Pi=J-LsifPirathenFé= lefrétcPs.P1> 

eeimtb "HOLD COMA w'" OR TH" KE'Y To SELECT" 
rereint" "PROGRAMS TO BE CUPIED..." 
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AosUub Sse :itEthenstay pgetazee Continued 


mi i 


St) i i & 


SS) 


SY Ip mms Oh bh Oho oe 


J 
at 


i 
i 
1 
i 
i 
1 
1 
1 
1 
1 


3 


roo Oe oo ee 


a 
as 


Ml ~~) mh ohh ho Pho Re 


63 fa fa Pa Po fe 


mi 





27 














1 


Wed =) oy of bb oo fF. 


* = 


* 
t 


rah Oh BG 


- 


Lge 


rm mooi MMOS oS wo ee oi 


8 

a! 
ee 
3) ts) tye Us 


i 


ar wa Ela a 
34 tat Est Ey) teh 


= 1h) ie: Oe _ 
yt tal ES isl Lyi fst t 


SAMA Mbhwhwe Glo wy Hub ope i 


IoD OM Gh th es is 


= 
— 


IM A eh Ho Ps e 


— 
s 


S, 


Si ii 


oO ~mMonbwhe Bio w 


Rae i | 
Aare aa Go oS wo & & 


mt iG! 


PO OOOO OOO DOAN NNN NH HAH Hh hhh ERE RW od 


au 
—~j) i oh 


i 
= 
Si imi 


Stans & 
SOUCY A 


1 i ma 
mi ml 
ey 
3! 


tt fia 


he ft pe pe ae) try Fa) 
x i | 
a 


a) 


nt tt 


— 
-~ 


gethi ,.AS:A=sectiAs+" "5 

iffAi=lLeorA=6ithenLi=2is syotasae 

ifA=6rthenLi=rsl saoekaste 
closelsprirnt’ YS???" retape 

for J=iltoaLll puet#i .sb rnex td 

NH=asHi=ask=2553s2=o9 

H$="" sgosukblaee sT3S="-128 saesukb 1 Bee 

JL=1 s2¢=chirB.16890 for J=ltelesget#l S$ sHS=HStHs 
LfH E> 2S thentTl=TI 


reo tT 
yosukS 34 sll a's 
MorsukbSse sacsuk3s 
Lt ee Sr ey 
ifTS<lerTso4gatch4e 
LHP LSEathenifP Sch le ttécHs Plo aotehae 
Prints e” © s Tee rad 
wepeelonr La > andr 
get ri flt=""andPletayatotoe 
iff2H=" "or 2H" thensz=secr sk 
iFSFH=chr Fl LS a thenF=a syakto®oe 
aa totse 
iF2TSetherer it" Cedcaurs 
M=H+i sLiocHo=Le sHBo no = lefts ns. 193TH 
LifisT ibaa tahrea 
inontt dundee iil i 
achos 37 
ie o: teselSeerin’e” 
Sats Ltt 
LeeLee Io sTHeTHee To si flo Le swotoaade 
meer eee copteat disk full" 
Treutilae secu hee S rei cere! 
Lfasci 2$ocIsStherericad 
mmsukAaet eats se 
merit. le scapernia,T.1is 
rrimtHs: I>: leftse” Me pd 
qpers -F,-3,-PS+" "4c Toe" ."+TSi TH 
inpeut#id.E-ES,E1,E2ryosubS4a:ifEthenprint' ee 
ifTe=d4thencpendt.T,-4,-TéS+" s"+hSe Toe" LL." t+tchrsi Lin 
opend,.T,-4,TSe" s"4NscJo+" ,"+Ts¢ TAat" Wl” 
L=L-L2ryesubS38 :ifethernprirct" eee "FES FE sgote ae 
lait eee 
ne So="" parm 
se itcltcpcadaet 


i) 


qr tose 


xe e E HE" 


Pees 


LFE tM eriper Tritt eee 


closedsc loseRicloselisc loeseld 
vant 

=frecGosinceut"anether ineut disk reads" 22s 
lfasc( 2S 9 =89 yetaZ2eh 


eric 

inmut'drive Ola leFfti" sO 
1FDeO KS Oeaetasee 

NS=chirsiO+4S> sreturr 

inputhlit,E ES,E1,E2 
ifE=HthenE=(3T and 13519 :sES="#ete" 
re turers 


apenii.T,-Lisineut mait te mew the cuteut disk mls 
ifascc  2$OTP S93 gets 14 

inmut"aisk rieune-id" rb 7s 

ri reeH LS Ue ETS eee tie 


MrSsukbSVsesiFfethenstap sgotesee 

printhisS,"I"+Ts sapeni,.T,8,"S"+TSt+" s!#see" 

BAISUENS SE s ifEthenstor rgetosee 

mcosub3SSe sacscukb3Se 

gece. Stith sl" " gokosde 

gcsukb338 

L=at7#256 serine." phe bk locks 
tleselsc lesel sre turrs 

jethl HS 

wygetH) 4s 
wet) ss 

= Lerceb s 

methl Me s= let hS) t 


nae hurr 


free 3 


ifsithens=saec "NSO 
it's 


fylthervs ase (KB) 


a 4 


28 


Cedcunrs J" 
KHIeTSsLieele=Lis 


Fo lencnsé* F223 


"SES:E sgota’ se 


Bactots et 


left] 32% 


Continued 


Machine 


arsusese portion of proaren: 


j 
_ 


.: Gece ae BS 26 c6é ff 26 Ya td 
.: @ed@ Se 48 B62 35 396 Sd di we 
»: BcdS 26 ce FF ae 44 26 cB Fr 
.: @ceG se 344 GS 26 S61 Gd ad 4i 
.: Bees GS FB da SS 396 4c ce FF 
-: Bete ao B42 SS SF St 56 eu c 

.: @cS ££ 26 Sf d& 4S 26 54 a2 
.-: G@d@@ Ge 26 <9 ff ae FH 2h 41 
.: 8065S Gd a2 B63 26 61 Hd a6 OF 
-: @d1@ 26 61 Gd =6 64 24 61 td 
-: @diS a2 81 26 651 &d He cc FF 
-: @d20@ a2 Be 2H ch FF 2H YS ed 
-: 8@d28 286 cc Ff eh SE fe 1 Se 
3 aoe ee SS 28 ce ff ab ff ce 
aS BdSsS 26 Fa Be at 61 Ba SS Ya 
-: Bd46 Go a6 25 fH fe S4 Ge Skt 
.: B@d4S8 ce Ff 22 HH Se cS fF St 
-: @dSe@ Ff «8S bo Fa We ae ee 461 
-: 8055 Gea at 61 c4 SE de fe Fe 
.: @066 35 84 61 sf le Sa ce d2 
-: Bdi6S FF aE 36 259 Ws Fe Bs Be 
-: BdFre de FS 6h S84 61 ab le =H 
-: 8BdFS 24 fF Be aS SE 2D FS FH 
-: @dS6@ 8S SS de FS 6H 2a Sa Sm 


ve 


ave 


After 
Basic 


PRIMT 


seeps Xeneiy 
ie . 
Hine $ 


mee 


5) Hae Beh 
a 


i 


on Os Om ee Oa oe 
™ 
to tal 


OA ee oo Pa 


ac 


= 


ei tk 


Machine Larnisgusece foarmi tors 


a 


“SCOP ALL” eS . bid 


ermarain hes beer sawed. it mas be lLloececd arid Seaweed rrecmmae lds wea th 


Lammands . 


ASCII] FILES 


Mislil Files JL BUT Teer IeLD” 


FILE HAME” ses 


FRIWT " ee DHT 
IHPUT “OTSE 
MPEWS oo. Ps 
LHAPLUT“SUCREEH Uk PRINTER” #0 

Cea Seo se TRO seGoTod sk 

TPo<c sou TOL eS 

PORES SSES 14 sPRINT' = sOPEW4S .SsPORE1 S68 sGoTO14e 

OPENS 4 :POKELS6 17 :FRIHTH#4."LISTING. FILE: "sF#:PRIHT#4."9"+ 
cry Sd Sige 

FR TPT H+ 

rLOSE4 sOLOSsesS 


Leet 
ye 
| 


READ. 


THE 


a 
= 
m1 — 
ao 
a 2 
a 
a” 7 
a 
a a 
s 
= a 
a 
s a 
ou 
a a 
a 
ou o 
a 
we a 
u 
ow a 
u 
a we 
a 
« i 
8 
a 
» 
a a 
a 
a a 
“ 
# 


MACHIWE CODE FART 


HEGG He wo eet Ce FF 2a E4 Fr 
BEES Ae 36 8S AA ee Ol FP SA 
G518 22 °F Ce Fr Pe we lee de 
He1iS Be Ge Co BO Fe 14 Om 1A 
Hea CS 61 2G G4 22 SF BE BA 
Hees o> 41 Se Be CP eu Be Ge 
BeS6 83 SH Ae be ah CS FF eet 
8633 O2 FF CS OD DO GF AS SE 
Hes 2S 61 De PR So @e, AS Se 
Beds Fi bis 2a De Fre ge Cl FP 
Yooh we kl FF 2a Fe RA a OL 
Mess FR +e SE BE Fos PP Ee bie 
Heee +4 GG 81 Fie °F Ge we 44 
BOOS EE Sy ate EN Git et AA AA 
Berk AA AR AR AA AR AAR AA A 


29 
































Using the User Port 


A.H. Potten 





What is the *‘User Port’? and what is it for! 
Let’s take a look at the back of your PET ..... you should see something like Figure 1. The slot marked 
‘‘Parallel User Port’? - J2 is what you need and an edge-on view, somewhat enlarged is shown at the bot- 
tom of Figure 1. If you need a technical description of the Port then this article is NOT for you. Consult 
the CBM Manual or “‘The PET Revealed”? or one of the many other publications which give as much 
detail as you may need. THIS article is strictly for beginners. 


The user port enables you to have 
two-way communication with the 
PET without using the keyboard, 
cassette, screen, disk unit or printer 
(apart of course from writing or enter- 
ing a program). Since it can be a two- 
way procedure it is often referred to 
as Input/Output or I/O for short. The 
IEE interface also allows I/O to take 
place and is much more powerful but 
at the same time much more difficult 
to get to grips with ! Nevertheless the 
user port enables you to undertake a 
wide variety of tasks such as swit- 
ching and/or monitoring or eight 
channels, sound generation, data col- 
lection, counting, process control and 
similiar activities. 

In order to use the port a connector 
is needed, and it must be the correct 
type. I was sold one by a radio-spares 
dealer as being suitable for a PET on- 
ly to find that it was double-sided. 
The top and bottom contacts were 
connected. So you have been 
warned...make quite sure that you 
know what you are doing since con- 
nections to the top row of contacts 
can do nasty things to the insides of 
your computer. And while on the 
subject, make sure that you never in- 
put a voltage to the PET greater than 
5 volts and remember that the max- 
imum output is of the order of 200 
milliamps. You may also be a little 
confused by the “‘identification’”’ 
system. Figure 1. shows that the top 
row of pins (contacts) are numbered 1 
to 12 which is clear, however the bot- 
tom row is A to N omitting G and I 
(!). Not so clear is the fact that these 
contacts are also referred to as PA 0 to 
7 CAI, CB2 and there two digital 
grounds. For full explanation see 
CBM Manual p.79 but the following 
tells you the relevant bits :- 

A - Digital ground ° 


B-CA1 
C-PAO 
D-PAI1 
E-+-PAz2 
F-PA3 
H-PA4 


J-PA5 

K-PA6 

L-PAT 

M-CB2 

N - Digital ground 
You may well recognise CB 2 since 
sound output is often taken from con- 
tacts M and N i.e. from CB 2 and 
ground. 

My first attempt to ‘‘come to grips” 
with the subject was to buy ““The 
User Port Cookbook” from CBM. 
Apart from, the expected difficulties 
due to it’s American orientation, the 
misprints (Versatile Interfree Adap- 
tor), plan of the pin-out (viewd for the 
top with the explanation that ‘“The 
user port ins are on the bottom 
“*’.yes” user port ins’, I was finally 
discouraged by the statement that the 
suggested circuit (not easy to follow) 
draws about 200 MA which is close to 
the maximum available from the 
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PET. The accompanying cassette I 
found equally unhelpful since it is 
simply a tape version of the printed 
program in the ““Cookbook”’ which is 
not explained ! The final straw is the 
poorly reproduced technical descrip- 
tion of the VIA (Versatile Interface 
Adaptor) which I will not attempt to 
explain ! 

So when I saw Mektronic Con- 
sultant’s advertisement for the COM- 
MUNIKIT which plugs in to the 
PET and “accepts inputs through the 
user port and allows outputs “‘and by 
means of simple BASIC PEEKS and 
POKES allows it to perform as a ver- 
satile controller I promptly bought a 
kit. 

The Communikit has been design- 
ed to be extremely simple to construct 
and will only take around 90 minutes 
for a beginner equipped with only a 
soldering iron and a few tools to 
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assemble. 

It will handle up to 8 inputs or out- 
puts directly, without the need to use 
the special control lines CA 1 and CB 
2. With the use of simple handshak- 
ing procedures the effective capacity 
can be expanded virtually indefinite- 
ly. 

The unit is powered by an external 
battery of anything in the range 8 to 
24 volts and is capable of driving up 
to 500 milliamps per channel (subject 
to a total maximum of 2.5 amps). 

L.E.D.’s indicate the status of each 
channel. 

I am pleased to say that I found the 
Kit as easy to construct as the makers 
claimed, and the instructions seemed 
clear and comprehensive. Since the 
connector came ready-wired mistakes 
are unlikely at this stage and in fact I 
only experienced one problem - a 
faulty L.E.D. Almost unheard of I 
have been informed. I did of course 
take the precaution of testing all com- 
ponents as far as possible before 
asembly and the L.E.D. was OK at 
this stage but if failed when the cir- 
cuit was completed and gave me some 
anxious moments since I could not at 
first believe that this could be the 
trouble. A minor problem was that 
during testing the instructions state 
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A=59459:B=255:C=254:D=252 
E=251 

POKE A,B:PRINT 
POKE A,C:FOR 
POKE A,D:FOR 
POKE A,B:FOR 
POKE A,E:FOR 
N=N+1:IF N<5 GOTO 290 
WAIT 59410,4,4 
N=0:GOTO 30 


that at one stage ALL the I.E.D.’s 
should be out, this should read ALL 
but CB 2. 
The circuit diagram is given in figure 
3 

You do need to know a little about 
the DDR (no not a German abbrevia- 
tion but the Data Direction Register). 
This register is held at location 59459 
and the decimal value can be anything 
from 0 to 255. As you will have 
gathered when it is 0 all the L.E.D.’s 
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R= 1500 OHMS 


"PRESS SPACE BAR" 
I=l1 TO 250:NEXT 
I=l TO 250:NEXT 
I=l1 TO 500:NEXT 
I=l1 TO 500:NEXT 


Figure 2 





are lit (which means that the contacts 
are at logic level 1 or 5 volts) and 
when the value is 255 they are all out 
(logic level 0 or O volts). 

This can best be explained in a 
table (fig a) over page 

If you want every other channel to 
be an input (which is indicated by 
alternate L.E.D.’s lit) then it should 
be obvious that one of the two pat- 
terns which will do this is (fig b) 
over page 
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The first check I made was for cur- 
rent consumption using a _ robust 
milliameter (120 ma. f.s.d.). This was 
connected together with a switch as 
shown in Figure 4 and proved to be 
very useful. I found that my unit used 
4.5 ma. with a 12 volt supply, ap- 
preciably less than the maximum of 
50 ma. given in the instructions. For 
most of my subsequent experiments I 
used a 6 volt supply which gave me 
satisfactory resuits. With a!l L.E.D.’s 
lit, two small 6 volt relays a P.O. relay 
and a solid state alarm operating I was 
still only using 120 ma. 

And so when all seemed to be in 
order I gave the first command 
POKE 59459,255 and all the 
L.E.D.’s went out (except CB2) just 
as they were supposed to do! 

Thus the command POKE 
59459,85 wil do just what you need. 
If you refer back to Figure 4 it should 
now be clear that the line of L.E.D.’s 
indicate the status of each channel, be 
it input or output. 

Despite the makers instructions 
that the voltage applied to the Kit 
should be in the range 8 to 24 volts I 
found that I got quite satisfactory 
results using a 6 volt battery, the 
L.E.D.’s being sufficiently bright. I 
felt that while experimenting an ac- 
cidental mis-connection at 6 volts was 
much less likely to do damage than at 
24 volts. I later found that even using 
4.5 volts (an ordinary dry battery) the 
unit still operated in all respects ex- 
cept that now the L.E.D.’s were 
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distinctly dim. 

Having got this far it is easy to 

write programs which will flash the 
L.E.D.’s in any patterns you can 
think of, or you can arrange for them 
to ‘“‘count”’ in binary (fig c) 
The next stop is to switch a load of 
some sort. For example a lamp of the 
same voltage as your external supply 
which will not take more than 500 
ma. is connected across from one of 
the PA terminals to the top ter- 
minal(s) which should be at your 
voltage. 

My first project was to operate a 
programmed Xmas tree which had 
two sets of fairy lights, several in- 
dividual lamps, and some stars which 
could be rotated by means of an air 
pump! I used two relays to switch the 
fairy lights on and off (240 volts), a 


Figure 4 
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P.O. relay to switch the air pump 
(also 240 volts), and the 6 volt lamps 
were directly switched. The program 
displayed a Xmas tree and the ap- 
propriate greeting and played an ex- 
cruciating version of the “‘First Néel”’ 

Naturally you should take special 
care when switching mains voltages. 
There is not only the danger of elec- 
tric shock, you may get induced 
voltages in the wiring, mains spikes 
or back EMF’s from relays. These 
may only corrupt your program if 
you are lucky ...if not you may have a 
repair bill. So if in doubt seek advice 
FIRST. 

I then devised a circuit, see Figure 
2 which reversed the polarity of the 
supply to a bi-colour L.E.D.’s. A 
slightly risky experiment since failure 
would have resulted in a dead short. 
However all was well and the 
L.E.D. obediently flashed red and 
green. Magic ? Well no, but quite a 
boost to my confidence! 

When first initialised all the output 
channels are at 0 volts and all the in- 
put channels are at 5 volts. The status 
of the input channels can be read 
from the request PEEK(59471) and 
the decimal answer is 255. If you 
short one or more of the channels to 
ground (common or earth) then 
PEEK(59471) becomes the _ cor- 
responding decimal number of the 
binary ‘“‘pattern’ which you have 
created. I connected a set of eight 
switches to the input terminals and 
thus could enter any desired combina- 
tion or number. Connections are con- 
veniently made using ‘‘ribbed cable’’. 
This way my most expensive compo- 
nent (most of my components are ex- 
T.V. or surplus) until I became aware 
of surplus computer dealers and 
cheap second-hand cable. 

Continued next month 
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INVADERS IN ROM! 


They said it couldn't be done! We've managed to put INVADERS into ROM for the 8032 - 
and it uses the full width of the screen. All you need to do is unplug the chip in UD7 
- it's not soldered in - and replace it with our new ROM INVADERS chip. Normal 
operation of the 8032 is entirely unaffected, but type SYS 59648 and you'll find 
yourself struggling to survive against a massive alien fleet. When you hear the boss 
coming just press ths escape key and then - well, back to work! 


ROM INVADERS makes full use of the built-in 'bleeper' to add appropriate sound effects. 
It's the most self-contained game ever, and at £19.95 plus VAT really good value. 

Other SUPERSOFT arcade games are ASTEROIDS, SUPER GLOOPER, METEORITES, and GIDDY GHOULS 
-~ they cost £8 plus VAT each and run on all 40 and 80 column machines except Old Rom. 


HIGH RESOLUTION GRAPHICS 


The HR-40 High Resolution Graphics Board is easy to fit - no soldering, no tracks to 
cut, no links to make or break. The resolution of 320 by 200 is as good as you'll get, 
and the picture is rock steady. It has 8k of its own RAM, and utility software in 
EPROM, so you'll have a full 8, 16 or 32k of memory for your own programs. Don't worry 
about those plug-in chips you've bought - sockets UD3 and UD4 are duplicated on the 
board! 


Fully assembled, the HR-40 board fits any large keyboard PET/CBM computer other than 
the new 12in models. If you have a 'FAT-40' machine then you should order the HR-4OB 
version, but they're both the same incredible price, just £149 plus VAT. The HR-80 
board for the 8032 should be available during December - write or phone for up to the 
minute information. 


DON’T BUY A WORD PROCESSOR! 


That's right - don't buy a word processor until you've seen MicroSecript, the new 
ROM-based word processor for the 8032. Because it's in ROM up to 30000 bytes are 
available for text - that's nearly three times as much as with other systems - and it's 
not only easier to learn, but faster in operation! 


Ask your dealer to demonstrate how easily MicroScript handles standard letters - and 
how the exact format of any document can be displayed on the screen. You'll notice too 
that there's no need to wait whilst documents are being printed - once you've started a 
print run you can continue to use the computer and disk regardless! 


seeeeeee BUT ON THE OTHER HAND 


If word processing is a relatively minor task for your PET/CBM system you're probably 
not prepared to spend hundreds on a word processor, however sophisticated. PAPERMATE 
is a word processor with most of the features you'll find on more expensive programs - 
yet it costs just £35 on tape or £36.50 on disk. All you need to use PAPERMATE is 16k 
of memory - whether you've got 40 or 80 columns, disk or tape just doesn't matter. 


SUPERSOFT 


First Floor, 10—14 Canning Road, Wealdstone, 
Harrow, Middlesex, HA3 7SJ, England 


Telephone: 01-861 1166 
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adds commands to BASIC for use within your Program 


IF THEN ELSE @ PLOT @ secre @ PRintusine @ SWAP 


MERGE @ HARD COPY @ PLUS A RANGE OF TOOLKIT 
TYPE FUNCTIONS AND A FAST EDITING SYSTEM 


EDEX is an extension to BASIC which considerably enhances the potentialities of the Commodore PET/CBM 
It consists in a 4K-BYTE ROM which installs inside the PET/CBM. 

EDEX is compatible with Commodore disk devices as well as with the DOS Support Program. 

EDEX operation is fully transparent towards the Microsoft Basic Interpreter 

EDEX is fully compatible with prior programs written without EDEX. 


AUTO 

Activates automatic line numbering. 

APPEND ~* 

Allows the creation ofa program with asubroutine library 
BEEP 

Gives a sound of programable pitch and duration 
CALL 

Calls a machine language subroutine with transmission 
of up to 16 arguments 

DELETE 

Allows multiple line suppression 

DUMP 

Lists all variables ina program, together with theirvalues 
EDITING * 

e.g.@ M prints MIDS 

ERROR 

Shows where an error has occurred 

FIND 

Lists all lines where a given character string is present 


EDEX 2.0 tor use with BASIC 2 40 Column Pets £39.50 


HARD COPY 0 

Dumps screen to printer 

IF THEN ELSE 

With up to 16 nested conditions 
MERGEO 

Merge two programs files 

PLOT 

Plots curves of 50 x 80 or 160 resolution 
PRINTUSING 

Formats printing on screen or any printer 
RENU 

Program renumbering 

RESET 

Suppresses a dot (contrary of PLOT) 
SWAPO 


Swap one program for another keeping variables 
TRACE 

Single line execution (displayed at top of PET) 

* EDEX 2.0 only OO EDEX 4.1 only 


EDEX 4.1 for use with 80 Column Pets £49.50 


Available shortly for BASIC 4 40 Column PETs 


MULTEX 


IEEE-488 PACK 


POWERFULL 


@ (Ci) © 


BUS CONTROLLER 


The end of instrumentation’s problems. |t resolves all kind of troubles: 
- Time-out 
- Special characters (“null’, and soon...) 
|IEEE-PACK allows the use of IEEE-488 Universal Commands: 
-DCL (Device clear) -SDC (Selective device clear) 
-SPE (Serial poll enable) -SPD (Serial poll disable) 
-LLO (Local lockout) -GTL (Goto local 
-PPL (Parallel poll -PPU_ (Parallel poll 
configure) unconfigured) 
IEEE-PACK also allows BASIC interrupt with functions: 
- ONKEY “x”, line number 
- ONSRQ line number (On Service Request) 


IEEE-PACK comes complete with two ROMs. £89.50 
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AUDIOGENIC, P.O. Box 88, 34-36 Crown Street, Reading, Berks. 





ALL PRICES INCLUDE V.A.T. & P.P. 
AVAILABLE FROM ALL GOOD DEALERS OR DIRECT FROM 


MULTEX allows several CBM 8032 to work together on the same 
peripherals. 


MULTEX is a ROM which replaces a ROM of the CBM 8032. 


Except the substitution of this ROM no other modification is 
required on the CBM 8032. 


MULTEX is much cheaper than any other system. 


MULTEX £69.50 





Tel: Reading (0734) 595269 





